let($)i k=for n=1to i do print_char"ABC ".[(n+n land-n*k)*i*2 mod 3+n/i*3]done;i;;1 lsl read_int()$2$1
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page