16 lines
377 B
Plaintext
16 lines
377 B
Plaintext
[
|
|
[*]P [print asterisk]sz
|
|
lj 1 + d sj [increment j, leave it on stack]sz
|
|
li !<A [continue loop if i >= j]sz
|
|
]sA
|
|
[
|
|
1 d sj [j = 1, leave it on stack]sz
|
|
li !<A [enter loop A if i >= j]sz
|
|
[
|
|
]P [print newline]sz
|
|
li 1 + d si [increment i, leave it on stack]sz
|
|
5 !<B [continue loop if 5 >= i]sz
|
|
]sB
|
|
1 d si [i = 1, leave it on stack]sz
|
|
5 !<B [enter loop B if 5 >= i]sz
|