lines
        0
        left-cons
        show-line
        pairwise
            extract-array
            =
            "-"
            show-space
            get
            @4
        m6
    m6
    transpose
b3
2
times #(eval)
2
chunks
m:
    extract-array
    swap
    tail
    2
    step
        42
        swap
        dup
        dup2
    m4
    swap
    2
    step
        32
        dup
        dup2
    m3
    "-"
    split
    "|"
    join
        41
        take
        show-line
    t3
    dup