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);

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

download

return to the top page