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