main=interact$f.unzip.(#"ACB").read
f(x,y)=x++'\n':y
0#x=[]
n+1#[a,b,c]=n#[a,c,b]++[(a,b)]++n#[c,b,a]