padString :: Int -> String -> String
padString w s =
    s ++ (replicate x ' ')
    where
        x = w-length s
padString :: Int -> String -> String
padString w s =
    s ++ (replicate x ' ')
    where
        x = w-length s
padString w s =
    s ++ (replicate x ' ')
    where
        x = w-length s