right-uncons
save-a
itemize
split
m:
    push-a
    over
    m:
        even
        double
        dec
        +
        save-a