( )
( "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