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