7 lines
108 B
Forth
7 lines
108 B
Forth
|
: loopCont
|
||
|
|
| i |
|
||
|
|
10 loop: i [
|
||
|
|
i dup print 5 mod ifZero: [ printcr continue ]
|
||
|
|
"," .
|
||
|
|
] ;
|