(draw g
        (for [ix (range 0 width)
              iy (range 0 height)]
          (let [line   (nth area iy)
                value  (nth line ix)
                grid   (rect (* ix 50) (* iy 50) 50 50)
                r-style (style :foreground "#FF0000" :background "#00FF00" :stroke 3 :cap :round)
                g-style (style :foreground "#00FF00" :background "#00FF00" :stroke 3 :cap :round)
                b-style (style :foreground "#0000FF" :background "#00FF00" :stroke 3 :cap :round)]
            grid
            (cond
              (= value \#) r-style
              (= value \space) g-style
              :else b-style)
            )))))