printBoard :: Board -> IO ()
printBoard b = do putStrLn ""
                  putStrLn $ boardToString b
                  putStrLn ""


-- GAME
printBoard :: Board -> IO ()
printBoard b = do putStrLn ""
                  putStrLn $ boardToString b
                  putStrLn ""


-- GAME
printBoard b = do putStrLn ""
                  putStrLn $ boardToString b
                  putStrLn ""


-- GAME