m:
    dup
    is-digit
        read-num
        push-a
        get
    f3
    dup2
    is-alnum
    copies
    push-a
    catenate #(list+list)
    pop-a