read-num
save-b
range1
m:
    push-a
    last
    itemize
    swap
    rjust
    push-b
    ljust
    init
    @0
    reverse
    init
    catenate #(list+list)
    push-b
    dec
    times #(list)
    @8
    show-line