line-mode
space
diff #(list-list)
"+"
split
dup
    is-alpha
f1
swap
    2
    step
        read-nums
        sum
    m2
    product
m5
sum
catenate #(list+elem)
head