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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page