print-board

(defn print-board [board]
  (let [row-sep (apply str (repeat 37 "-"))]
    (println row-sep)
    (dotimes [row (count board)]
      (print "| ")  
      (doseq [subrow (nth board row)]
        (doseq [cell (butlast subrow)]
          (print (str cell "  ")))  
        (print (str (last subrow) " | ")))
    (println)      
    (when (zero? (mod (inc row) 3))
      (println row-sep)))))