( "\x0b!7Mc" )
dup
    digits
    head
m2
swap
100
wrap-stack
flatten
pairwise
    crange
dm1
m:
    counter
    pop-a
    m:
        ( "N=" )
        swap
        show
        ( ",A=" )
        push-a
        show-line