lines
m:
    words
    m:
            ascii-digits
            uppercase-alphabet
            catenate #(list+list)
            index
        m4
        16
        base #(list to num)
        dup
        is-printable
        not
        f:
            ( "\\x" )
            @14
                32
                |
            m2
            rot
            10
            =
                pop
                head
                "n"
                show-line
            f4