Hello World

main = do
  putStrLn "Hello"
  putStrLn "World"

Input

main = do
  putStrLn "What's your name?"
  name <- getLine
  putStrLn ( "Hey, " ++ name)

Fizz Buzz

fizz :: Int -> String
fizz n | n `mod` 15 == 0  = "FizzBuzz"
       | n `mod` 3  == 0  = "Fizz"
       | n `mod` 5  == 0  = "Buzz"
       | otherwise = show n
main :: IO()
main = mapM_ putStrLn $ map fizz [1..100]

Hello World

putStrLn "Hello World"

Evens

[ x | x <- [1..10], x `mod` 2 == 0]