import Control.Monad
f n|n`mod`15==0="FizzBuzz"|n`mod`3==0="Fizz"|n`mod`5==0="Buzz"|otherwise=show n
main=mapM_(putStrLn.f)[1..100]