data "Now", "is", "the", "time", "for", "all", "good", "men", "to", "come", "to", "the", "aid", "of", "the", "party.", ""

do
    read p$
    if p$ = "" break
    if not instr(r$, p$) r$ = r$ + p$ + " "
loop

print r$