thru 11538 do(s:?string\>)(c:?read\-char(),a)*s(" ",c)#0or?princ(a:c);