l=[1..100]
main=mapM putStrLn[max["JizzBuzz"!!n|n<-[0..7],y<-l,y^div(n+8)4==x]$show x|x<-l]