get s p=substr(s,"T")while p{get t?s q=substr(t,"K")if q{?copy(" ",q--)+copy("1",p-q)p=0}}