{
    lines
    reverse
    transpose
    unlines
    show-line
    counter
    save-b
    3
    <
            @2
            !=
            push-b
            *
            @2
        m5
    f2
    2
    chunks
        dump
        dup
        4
        <
            |
            @1
        f2
    m6
}
8
times #(eval)
m:
    dup
    4
    <
    f:
        ( " -|+" )
        get