17 lines
364 B
Plaintext
17 lines
364 B
Plaintext
[[Fizz]P 1 sw]sF
|
|
[[Buzz]P 1 sw]sB
|
|
[li p sz]sN
|
|
[[
|
|
]P]sW
|
|
[
|
|
0 sw [w = 0]sz
|
|
li 3 % 0 =F [Fizz if 0 == i % 3]sz
|
|
li 5 % 0 =B [Buzz if 0 == i % 5]sz
|
|
lw 0 =N [print Number if 0 == w]sz
|
|
lw 1 =W [print neWline if 1 == w]sz
|
|
li 1 + si [i += 1]sz
|
|
li 100 !<L [continue Loop if 100 >= i]sz
|
|
]sL
|
|
1 si [i = 1]sz
|
|
0 0 =L [enter Loop]sz
|