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