RosettaCodeData/Task/Singleton/Oforth/singleton-2.oforth

7 lines
112 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
import: parallel
: testSequence
| s i |
Sequence new(0) ->s
100 loop: i [ #[ s nextValue println ] & ] ;