read-num
rrange
m:
    "*"
    swap
    rjust
    counter
    dec
    double
    @2
    times #(list)
    show-line
}
init
right-uncons
push-a
read-num
dec
rjust