line-mode
read-nums
extract-array
save-a
-
pop-b
0
push-a
copies
itemize
m:
    extract-array
    1
    push-b
    range
    m:
        power-of-2
        over
        double
        +
        push-a
        2
        +
        pick
        -
    }
    extract-array
}
last