(Q:=S:=1)to:1e3do:[:i|S\\Q*(S:=S*Q*Q)\\(Q:=Q+2)<1or:[stdout<<(Q- 2)<<$,<<Q;nl]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page