#!/usr/bin/env runhaskell
main = do
     mapM_ (putStrLn . fizzbuzz) [1..3]
     putStrLn $ "Hello, " ++ name
     putStrLn ( "Hallo, " ++ name )
     putStrLn ( show (odd 7) ++ " " ++ show (odd 6) )
     putStrLn $ show ( odd 7 ) ++ " " ++ show ( odd 6)

name = "Mike"

fizzbuzz n
   = if or $ map (\s->length s /= 0) [fizz, buzz] 
        then fizz ++ buzz 
        else show n
     where fizz = if mod n 3 == 0 then "Fizz" else ""
           buzz = if mod n 5 == 0 then "Buzz" else ""