Yet another Haskell tutorial - Exercise 3

The exercise asks writing a program that will repeatedly ask the user for numbers until she types in zero, at which point it will tell her the sum of all the numbers, the product of all the numbers, and, for each number, its factorial.

In the solution, I practice a idea that Monad is lazy as well. In other words, here, could generate a list of Monads then print out to console.

main = do
│  xs <- sgetline
│  mapM_ (\s -putStrLn s) (showSum xs : showProduct xs : (map showFactorial xs))
│  where
│   │showSum xs = "The sum is: " ++ (show . sum) xs
│   │showProduct xs = "The product is: " ++ (show . product) xs
│   │showFactorial xs = (show x) ++ " factorial is: " ++ (show . factorial) xs
│   │
sgetline :: IO [Int]
sgetline = do
│  putStrLn "Give me a number (or 0 to stop) :"
│  x <- getLine
│  if x `elem` ["", "0"] then -- isStringEmpty??
│   │do return []
│   │else
│   │do xs <- sgetline
│   │   return ((read x):xs)
│   │
factorial n = product [1..n]

Full code here.