Haskell list monad

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