let f=stdin.ReadLine
let w(x:string)=stdout.WriteLine x
let T=f()
let t=T.IndexOf 'T'
w(T)
let mutable i=f()
while i.IndexOf 'K'<0 do
 w(T);i<-f()
let k=i.IndexOf 'K'
w(i.[..k]+String.replicate(t-k)"K")