"Now" "is" "the" "time" "for" "all" "good" "men" "to" "come" "to" "the" "aid" "of" "the" "party." stklen tolist
0 tolist var newlist
len for
get newlist over find
not if
swap 0 put var newlist
else
drop drop
endif
endfor
newlist print drop