block([n: 0], do (ldisp(n: n + 1), if mod(n, 6) = 0 then return('done)))$