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