let f=stdin.ReadLine
let w=printfn"%s">>f
let T=f()
let t=T.IndexOf"T"
let mutable i=w T
while i.IndexOf"K"<0 do i<-w T
let k=i.IndexOf"K"
i<-w(i.[..k]+String.replicate(t-k)"K")