w( "MDC" "CLX" "XVI" )
    pop-a
    ( "\x01\x08\x115\x10\x04\x0e,\x86\x0f" )
        3
        base #(num to list)
        tail
        push-a
        select
    m5
m4
fold-product
unlines
new-line
"M"