a-N:-get0(X),(X<0;(X\=89;writeln(N)),C is N+1,a-C). m:-prompt1(''),a-0.

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

download

return to the top page