let rec($)i?(p=print_int)j=for m=i-j to j-i do p(abs(j+min 0m));p(abs(j-max 0m));print_char ' 'done;i<j&1-j$0-i;;0$read_int()-1

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

download

return to the top page