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