main :: IO ()
main=do
	ns<-getLine
	let nn=rI ns
	let na=[1..nn]
	mapM_ (putStrLn.fizzBuzz) na

fizzBuzz ::Int->String
fizzBuzz x
	| x `mod` 15 == 0 = "FizzBuzz"
	| x `mod` 3 == 0 =  "Fizz"
	| x `mod` 5 == 0 =  "Buzz"
	| otherwise      =  show x

rI :: String->Int
rI s=read s ::Int