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