main=interact$(\n->"ABC"%n++'\n':reverse("CBA"%n)).read _%0=[] [x,y,z]%(n+1)=[x,z,y]%n++x:[y,x,z]%n

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

download

return to the top page