read-num
save-a
( "/  \\__" )
times #(list)
save-b
left-uncons
catenate #(list+elem)
pop-c
push-a
range
m:
    6
    *
    2
    +
    push-b
    take-end
    @4
    push-a
    +
    3
    *
    rjust
    show-line
}
push-b
init
init
show-line
push-c
tail
tail
show-line
catenate #(list+list)
push-a
times #(list)
push-a
rrange
m:
    6
    *
    push-c
    take
    show-line
    @3
    push-a
    +
    3
    *
    dec
    rjust