rightPadToWidth :: Int -> Char -> String -> String
rightPadToWidth width filler string =
    string ++ take (width - length string) (cycle [filler])
rightPadToWidth :: Int -> Char -> String -> String
rightPadToWidth width filler string =
    string ++ take (width - length string) (cycle [filler])
rightPadToWidth width filler string =
    string ++ take (width - length string) (cycle [filler])