d=%w(ACB ABC)[1&i=getc%8]*?~ gets (1...2**i).map{|n|putc d[n&n-1] $_<<d[1.+n|n-1]} print
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page