(= x 0) (= y 0)
(while (< y 224)
(= x (+ x 1))
(= y (+ y 1))
(dblock
(dcolor 0 0 0)
(dclear)
(dcolor 31 31 31)
(drect x y 16 16)
)