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