read-nums
100
chunks
2
chunks
m:
    extract-array
    pop-b
    reverse
    @0
    101
    50
    dup
    negate
        rot
            over
            abs
            push-b
            get
            =
            +
        b6
        each
        -
    t5
    show-line