read-num
9
/
show-line
push-b
3
+
rjust
space
show-space
"_"
push-b
times #(list)
show-line
9
show-space
"|"
show-space
@11
show-line
10
9
    push-a
    head
    read-num
    *
    show-line
t5
4
rjust
45
left-cons
( "__" )
show-line
3
make-array
    16
    rjust
    tails
    7
    drop
m5
transpose
push-b
2
-
take
right-uncons
head
init
init