module Main where
fizzList = take 100 (cycle ["", "", "fizz"])
buzzList = take 100 (cycle ["", "", "", "", "buzz"])
numList = map show [1..100]
fizzbuzzPreFinalList = zipWith3 concatThreeStrings fizzList buzzList numList
concatThreeStrings a b c = a ++ b ++ c
limitLength a = if length a < 4
then a
else if length a < 8
then take 4 a
else take 8 a
fizzbuzzFinalList = map limitLength fizzbuzzPreFinalList
main = putStrLn $ unlines fizzbuzzFinalList