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