-- | Pad short strings; leave too-long/long-enough strings alone
leftpad :: Int -> Char -> String -> String
leftpad l c s = replicate (max 0 (l - length s)) c ++ s
leftpad :: Int -> Char -> String -> String
leftpad l c s = replicate (max 0 (l - length s)) c ++ s
leftpad l c s = replicate (max 0 (l - length s)) c ++ s