RosettaCodeData/Task/Singleton/Oforth/singleton-2.oforth
2016-12-05 23:44:36 +01:00

6 lines
112 B
Text

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