character(50)a,b
read 2,b
i=index(b,'T')
1 print 2,b
read 2,a
2 format(a)
j=index(a,'K')
if(j<1)goto 1
print 2,a(1:j)//repeat('*',i-j)
end