10 lines
248 B
Text
10 lines
248 B
Text
make "val 0
|
|
do.while [make "val :val + 1 print :val] [notequal? 0 modulo :val 6]
|
|
do.until [make "val :val + 1 print :val] [equal? 0 modulo :val 6]
|
|
|
|
to my.loop :n
|
|
make "n :n + 1
|
|
print :n
|
|
if notequal? 0 modulo :n 6 [my.loop :n]
|
|
end
|
|
my.loop 0
|