a=linein() do i=0 to 999 a=insert(strip(charin(),,_),a,i) end say a