(= 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)
 )
)