w( "\x01" )
4
range
m:
    dup
    inc
    dup2
    dup
    double
    pop-a
    inc
    4
    make-array
    {
        1
        over
        push-a
        *
        inc
        copies
        push-a
        dec
        power-of-2
        binary #(num to list)
        rot
        times #(list)
        1
        catenate #(list+elem)
        @6
        copies
        right-cons
        catenate #(list+list)
        reverse
        transpose
    }
    each
}
pop
    w( "  " "[]" )
    select
    show-line
m3