var s,n:string;procedure h(n,a,b,c:char);begin
if n='0'then return;dec(n);h(n,a,c,b);write(a);s:=s+c;h(n,b,a,c)end;begin
read(n);h(n[1],'A','B','C');write(^j,s)end.