while(x:?read\-line(?-,?-,~))#~do dispterms(eval_string(ssubst("*",",",x)));