import Control.Monad
import Data.List
import Data.Char
main = mapM_ putStrLn $ zipWith3 (\a b c -> head $ groupBy (\a b -> isAlpha a == isAlpha b) (a ++ b ++ c)) (cycle ["","","Fizz"]) (cycle ["","","","","Buzz"]) (map show [1..100])