3
chunks
( "QJ" )
over
cartesian-product
unlines
show-line
swap
right-uncons
left-cons
"A"
10
"K"
9
8
7
6
make-array
map-show
cartesian-product
    reverse
    show-line
m2