( "\x04\x0b&1Ho" )
288
471
pair
catenate #(list+list)
2
9
crange
    2
    range1
    swap
    repeat-product
    extract-array
m5
select
pop-a
@2
    itemize
    push-a
    cartesian-product
        extract-array
        split
        length
        dec
    m4
    sum
f6
    map-show
    show-line
m2