main = mapM_ (\i -> putStrLn $ text i (mod i 3) (mod i 5)) [1..100] where
   text _ 0 0 = "FizzBuzz"
   text _ 0 _ = "Fizz"
   text _ _ 0 = "Buzz"
   text n _ _ = show n