r:?read\-line;while(a:r(?-,?-,~))#~do(r(?-,?-,~),dispterms(a));