procedure main() every x:=n:=1to 999do{t:=50 while x*t>t&x:=(x%2*23*x+x+2)/4&t-:=1 write(50>50-t|"Infinity",", ",n)} end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page