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