s:ssubst;while 0#(x:?read\-line(?-,?-,0))do dispterms(s("*",".",s(" ","$",x)));