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