line-mode
ascii-digits
diff #(list-list)
reverse
extract-array
@2
read-nums
    +
    swap
    even
        @4
        @5
        *
        nip
    f4
b5
fold