11 lines
248 B
Text
11 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
|