( )

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