v( "(?i)(ass)" )
m:
    counter
    even
    f:
            inc
        m1
        extract-array
        inc
        swap
        dup