main=mapM print$scanl1(#)$take 341$cycle[3,5,7]
x#y=y+y*div x y