formatLine :: [String] -> [String]
  formatLine xs = map p xs where
    p :: String -> String
    p s = pad m s
    m :: Int
    m = maximum $ map length xs
formatLine :: [String] -> [String]
formatLine xs = map p xs where
    p :: String -> String
    p s = pad m s
    m :: Int
    m = maximum $ map length xs
formatLine xs = map p xs where
    p :: String -> String
    p s = pad m s
    m :: Int
    m = maximum $ map length xs