m@main=do z<-getLine;putStrLn$take 1[show#[s,s+l]|l<-[0..200],s<-[1..15],[n|n<-gcd 15#[s..s+l],1<n]==f#words z]>>=unwords;m
(#)=map
f"Fizz"=3;f"Buzz"=5;f _=15