f={case[p,q]->p}
g={i,s->if(i>0)g(i-1,s)+s else""}
stdin|reduce(["",""],{case[c,d],s->if(c.length>0){v=s.split("K");if(v.length>=2)d+c+v.f+g(c.split("T").f.length-f(v).length+1,"A")else[c,d+c]}else[s+"\n",d]})|stdout