dim w$(1)
do
line input""s$
if""=s$end
for i=1to token(s$,w$())a$=" "+w$(i)+" "
if!instr(t$,a$)?w$(i):t$=t$+a$
next
loop