give s
p=substr(s,"T")
while 1
give s
for i=1 to p see" "next
?1
q=substr(s,"K")
if q
for i=1 to q see" "next
for i=0 to p-q see 1 next
exit
ok
end