addCharacter :: 
        Int -- ^ number of spaces to add
    ->  Char   -- ^ character to add
    ->  String -- ^ input String
    ->  String -- ^ output string
addCharacter i c s = s ++ Data.List.take i (repeat c)
addCharacter :: 
        Int -- ^ number of spaces to add
    ->  Char   -- ^ character to add
    ->  String -- ^ input String
    ->  String
addCharacter i c s = s ++ Data.List.take i (repeat c)
addCharacter i c s = s ++ Data.List.take i (repeat c)