lines
    "$"
    split
m2
save-a
m:
    push-a
    member
    f:
        @2
        head
        save-b
        "$"
        push-a
        push-a
            tuck-b
            member
            not
        f3
        save-a
        diff #(list-list)
            last
                ascii-digits
                lowercase-alphabet
                catenate #(list+list)
                save-c
                index
            m5
            16
            base #(list to num)
        m5
        product
        16
        base #(num to list)
        push-c
        select
        new-line