-- Jonathan Frech, 2022-08-02

main = mapM_ putStrLn . take 100 . zipWith (\n s -> if null s then show n else s) [1..] $ zipWith (++) (cycle ["","","fizz"]) (cycle ["","","","","buzz"])