give s?s p=substr(s,"T")while 1 give t q=substr(t,"K")if q see copy(" ",q-1)see copy("1",p-q)?1 exit else?s ok end