i:0;while(a:?read\-char(?-,?-,~))#~do(if 89=?char\-int(a)then dispterms(i),i:i+1);