w( "CDM" "XLC" "IVX" )
m:
    2
    step
    @0
    init
    left-uncons
    3
    copies
    inits
    swap
    over
    cartesian-product
    @6
    left-cons
    catenate #(list+list)
    right-cons
}
fold-product
    show-line
m1
"M"