 (defn board->string[board]
   (assert is-board? board)
   (str
-  (reduce (fn[accum location]
-            (str accum
-                 (get board location " ")
-
-                 (if (= 7 (first location))
-                   "\n")
-                 (if (and (= 7 (first location))
-                          (not= 0 (second location)))
-                       (str (second location) " ")))
-            ) "8 " locations-helper)
-      "  abcdefgh" 
+    (reduce (fn[accum location]
+              (str accum
+                   (get board location " ")
+
+                   (if (= 7 (first location))
+                     "\n")
+                   (if (and (= 7 (first location))
+                            (not= 0 (second location)))
+                     (str (second location) " ")))
+              ) "8 " locations-helper)
+    "  abcdefgh" 
     ))
-(println (board->string starting-board))
+
+
+;;(println (board->string starting-board))
+
 ;;; to print board 0 7, 1 7,     7,7 cr
 ;;;                0 6 .........7 6 cr
 ;;;                ...

        ]
    (when debug
      (println x y)
     (println (board->string board))
    (println location))
    (loop [locs-to-test (for [z (drop 1(range))]  ;; lazy seq of locations to test
                          (direction-fn x y z))
           ]

    (map #(move->algebraic-notation board %) 
         (moves starting-board :black))))
(defn run-tests[]
  (test-pawn-moves)
  (test-checkmated)
  (test-board->string)
  (test-starting-moves)
  )
;;(run-tests)
