0
pop-b
lines
m:
    9
    over
    read-nums
    60
    base #(list to num)
    tuck-b
    save-b
    -
    @3
    base #(num to list)
    0
    left-cons
        2
        48
        rjust
        58
    m4
    init
    new-line