character*99c(100);do 1 i=1,100;read(*,'(a)',end=2)c(i) do 1 j=1,i;1 if(c(i)==c(j))c(j+1:)=c(j:) 2 print'(a)',(trim(c(i)),i=1,i-1);end