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