pad :: Int -> Char -> String -> String
pad w c s = replicate n c ++ s where
    n = w - length s
pad :: Int -> Char -> String -> String
pad w c s = replicate n c ++ s where
    n = w - length s
pad w c s = replicate n c ++ s where
    n = w - length s