line-mode
"="
split
    max
b1
sort #(list,block)
@4
m( "-x" )
    reverse
f1
    read-nums
    sum
m2
extract-array
-