"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