main = print $ addMagic ["foo", "bar", "baz"] addMagic :: [String] -> [String] addMagic strings = do str <- strings return (str ++ "-magic")