empty-list
pop-a
m:
    dup2
    itemize
    dup
    is-alnum
    times #(list)
    push-a
    catenate #(list+list)
    pop-a
    @2
    index
    itemize
    10
    range
    and
        nip
        show
    m2