mail :: [Char] -> [Char]
mail [] = []
mail (x:xs) = if (x=='@') then xs
                          else mail xs