module Main where
import Control.Monad

fizzbuzz :: Int -> String
fizzbuzz i
  | i `mod` 15 == 0 = "FizzBuzz"
  | i `mod` 3 == 0 = "Fizz"
  | i `mod` 5 == 0 = "Buzz"
  | otherwise = show i

main :: IO ()
main = do
  -- Control.Monadをimportすると
  -- 不思議な事に forM_ という関数でforeachループが出来る
  forM_ [1..100] (\i -> do
      putStrLn (fizzbuzz i)
    )