-- BOARD REPRESENTATION


boardToString :: Board -> String
boardToString b = x ++ "\n" ++ fst (foldl printBoxes ("",(0,0)) b)
  where x = fst $ foldl printHorizontal ("*",(0,0)) $ head b
boardToString :: Board -> String
boardToString b = x ++ "\n" ++ fst (foldl printBoxes ("",(0,0)) b)
  where x = fst $ foldl printHorizontal ("*",(0,0)) $ head b
boardToString b = x ++ "\n" ++ fst (foldl printBoxes ("",(0,0)) b)
  where x = fst $ foldl printHorizontal ("*",(0,0)) $ head b