2
rrange
10
times #(list)
( "\x01\x1e\x03\x18\x08\x18\x08\x0e\x12\x0eP" )
compress
    dup
        counter
        nip
    f2
m3
( "D\tcC\x89$\x02\xf5\xca\xe9\xdb\x83[W\x22\xa8\x13.\xd2\x999\xee\xe8\xc2\x89\xe1\xbd|^#\xed\x97\x7f\xb4b\x11\xa1\xd2\xbcc\xde\xfa\xf0\tL \xb2\xbf\xa9.\x8fW\xca\x8e\x0e\xd6\x90\xe5\xe3'\xe3\xf4\xa8\x1d\x0b\xce\xdcV\x08\xc1\xbc\xda\xff\xd5U\xf1\xe8s[X\xf1\x91P\xec(cX\xde;\xc2|8\xc3\xd5d\x80\x08\xcc\xb4\xd8|\xa4\x19\xfa\xfd\xfe\xd5\x00\xd1\xf6\xaa\xc2;P\x22S\xe1Y\xccZ\xfa;\xed\xadU\x89\x9a0\xaf\xc1\xdd\x1ea\xd8\xc1 [i2\xdb:\xa8\xf6" )
256
base #(list to num)
828
base #(num to list)
w( "Uu" "a" )
uppercase-alphabet
catenate #(list+list)
lowercase-alphabet
show-space
cartesian-product
select
118
range1
map-show
zip
    "-"
    3
    times #(list)
    left-cons
m4
space
3
copies
left-cons
select
        3
        rjust
    m2
m2
32
chunks
m:
    transpose
    w( "+||" )
    transpose
        right-cons
    z1
    m:
        dup2
        last
        pop-a
        pairwise
            flatten
            is-space
            push-a
            show-space
            get
        m5
        swap
        zip
        tuck-a
        catenate #(list+list)
        show-line
    }
}
dup
last
head