read "s" =
s p
s "T" find "t" =
1 while
read "K" find "k" =
k if
" " k rep w
"K" t k - rep p
exit
end
s p
1
end