   ([port]
      (make-server (Integer/parseInt port))))
 
+(comment
+  (def server (make-server))
+  (.stop server)
+  (swap! board place-piece :x 0)
+  (swap! board place-piece :o 4)
+)





(defroutes app-routes
  (GET "/" [] (get-board board-o-wins))
  (POST "/post" [] (get-board board-draw ))
  (route/resources "/")
  (route/not-found "<h1>Page not found</h1>"))

    (println (apply str row))))




(defn zip [rest]
