u=unwords
m@main=do l<-getLine;putStrLn$take 1[map show[x,x+y]|y<-[0..171],x<-[3..15],l==u[u["Fizz"|n/=5]++u["Buzz"|n>3]|n<-map(gcd 15)[x..x+y],n>2]]>>=u;m