14 lines
275 B
Text
14 lines
275 B
Text
"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
|