lines
    read-nums
    last
    negate
b3
save-a
sort #(list,block)
dup
push-a
map
save-a
    push-a
    index
    inc
m3
    pair
    unwords
z2
unlines