# jan2018
# (c) Software Lab. Alexander Burger

(println "ulimit -s ulimited and 3.4GB of RAM")

(stack 3)
(for N 1000000  # Start all 503 coroutines
   (co (intern (pack 'ring N))
      (let (N N  Send (intern (pack 'ring (if (= 1000000 N) 1 (inc N)))))
         (for (I (yield)  (gt0 (yield (dec I) Send))  @))
         N ) ) )
(println (yield 1234567 'ring1))
(msg 'ok)

(println (bench (gc)))

(bye)