(defrecord Canvas [map])

(def canvas (Canvas. (take 40 (repeat (take 40 (repeat "0"))))))

(defn join
  [x y]
  (format "%s\n%s" x y))

(defn toView
     [canvas]
     (reduce join (map str (:map canvas))))

(println (toView canvas))