line-mode
read-nums
reverse
extract-array
@2
ascii-digits
diff #(list-list)
    odd
        +
        1
    f2
    *
b4
each