w( "\xa6\xa7" "\xa6\xbc\xbd\xbe" )
    184
    188
    crange
m3
fold-product
tail
64
take
m:
    dup
    tails
        ( "\xa6\xb8" )
        diff #(list-list)
    f2
    length
    take
        ( "\xe0\xb1" )
        swap
    m2
    show-line