read-num
save-b
range1
@0
rrange
catenate #(list+list)
m:
    "*"
    times #(list)
    push-b
    rjust
    @0
    init
    show-line