a="Fizz" b="Buzz" i%j=mod i j==0 f i |i%15=a++b |i%5=b |i%3=a |True=show i main=mapM_ (putStrLn.f) [1..100]