RosettaCodeData/Task/Singleton/Oforth/singleton-2.fth
2023-07-01 13:44:08 -04:00

6 lines
112 B
Forth

import: parallel
: testSequence
| s i |
Sequence new(0) ->s
100 loop: i [ #[ s nextValue println ] & ] ;