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