line-mode
read-nums
inits
right-uncons
tails
cartesian-product
    extract-array
        sum
    t1
    =
f4
last
    unwords
m1
"|"
join