16 lines
239 B
Text
16 lines
239 B
Text
( )
|
|
|
|
( "Now" "is" "the" "time" "for" "all" "good" "men" "to" "come" "to" "the" "aid" "of" "the" "party." )
|
|
|
|
len [
|
|
get rot over find
|
|
not (
|
|
[swap 0 put]
|
|
[nip]
|
|
) if
|
|
swap
|
|
] for
|
|
|
|
swap print drop nl
|
|
|
|
"End " input
|