(= ++ (mac (n) (list '= n (list '+ n 1))))
(= -- (mac (n) (list '= n (list '- n 1))))

(= draw-player (fn ()
 (dcolor 31 31 31)
 (drect player-x player-y 16 16)
))

(= update (fn ()
 (++ player-x)
 (= player-y (+ player-y 4))
))

(= draw (fn ()
 (dblock
  (dcolor 0 0 0)
  (dclear)
  (draw-player)
 )
))

(= main (fn ()
 (= player-x 0) (= player-y 0)
 (while (< player-y 224)
  (update)
  (draw)
 )
))

(main)