x=c() f=function(n,a,b,c)if(n){f(n-1,a,c,b);cat(a);x<<-c(x,c);f(n-1,b,a,c)} f(scan("stdin"),"A","B","C") cat(" ",x,sep="")