lines
    read-nums
m1
dup
m:
    pop
        length
        @0
        pair
    b3
    sort #(list,block)
    left-uncons
    save-a
    extract-array
    show-line
    swap
        push-a
        diff #(list-list)
    m2