pad :: Int -> String -> String
  pad m s = s ++ (spaces n) where
    n = 3 + (max 0 (m - (length s)))
pad :: Int -> String -> String
pad m s = s ++ (spaces n) where
    n = 3 + (max 0 (m - (length s)))
pad m s = s ++ (spaces n) where
    n = 3 + (max 0 (m - (length s)))