( "BUTT" )
    dup
    printable-ascii
    get
    pair
m4
fold-product
m:
        dec
    m1
    @4
    diff #(list-list)
    split
    @3
    join