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