line-mode
10
rrange
pop-a
ascii-digits
reverse
pop-b
space
diff #(list-list)
v( ";" )
m:
    left-uncons
    push-b
    save-c
    catenate #(elem+list)
    pop-b
    2
    chunks
    m:
        right-uncons
        push-c
        index
        push-a
        get
        show
        xor
        read-num
    }
    sum
    dup
    push-a
    catenate #(elem+list)
    pop-a
}
last