x:y:"";f(n,a,b,c):=if n>0 then (f(n-1,a,c,b),x:concat(x,a),y:concat(y,c),f(n-1,b,a,c));f(?read(),"A","B","C");printf(?t,"~a
~a",x,y);