new-line
show-line
split
m:
    lines
        read-nums
    m1
    dup
    transpose
    over
    length
    drop
    pop-a
        pop-b
        push-a
            push-b
                *
            z1
            sum
        m4
        unwords
        show-line
    m6
    new-line