a:concat(" ",?read\-line());while a#(a:sremovefirst(" ",a))do dispterms(a);