new-line
show-line
split
m:
    lines
        read-nums
    m1
    dup
    transpose
    over
    length
    drop
    cartesian-product
    @3
    chunks
            transpose
                product
            m1
            sum
        m4
        unwords
        show-line
    m4
    new-line