printLines :: [[String]] -> IO ()
  printLines lines = mapM_ (putStrLn) formatted' where
    formatted' :: [String]
    formatted' = map (concat) formatted
    formatted :: [[String]]
    formatted = formatLines lines
printLines :: [[String]] -> IO ()
printLines lines = mapM_ (putStrLn) formatted' where
    formatted' :: [String]
    formatted' = map (concat) formatted
    formatted :: [[String]]
    formatted = formatLines lines
printLines lines = mapM_ (putStrLn) formatted' where
    formatted' :: [String]
    formatted' = map (concat) formatted
    formatted :: [[String]]
    formatted = formatLines lines