f n=(if n`mod`3==0||n`mod`5==0 then g else print)n
g n=if n`mod`3==0 then putStr"Fizz">>g(n`div`3) else if n`mod`5==0 then putStr"Buzz">>g(n`div`5) else putStrLn""
main=mapM f[1..100]