read-num
new-line
over
rjust
times #(list)
m:
    counter
    dup
    16
    >
    +
    show
    2
    rjust
    swap