9
range1
tail
@0
7
range1
cartesian-product
cartesian-product
m:
    extract-array
    extract-array
    swap
    ascii-digits
    uppercase-alphabet
    catenate #(list+list)
    drop
    step
    take
}
    is-digit
f1
unlines