( "\t" "OAB" )
tail
@0
right-cons
( "-+" )
cartesian-product
cartesian-product
new-line
@1
cartesian-product
m:
    1
        dup
        double
        ^
    b3
    counter
    dec
    times #(eval)
    "X"
    inits
    8
    repeat-product
    get
        9
        left-cons
    m2
    reverse