# jan2018
# (c) Software Lab. Alexander Burger

(seed (time))

(stack 3)
(for N 2000 # Start all 503 coroutines
   (co (intern (pack 'ring N))
      (let (N N  Send (intern (pack 'ring (if (= 2000 N) 1 (inc N)))))
         (for (I (yield)  (gt0 (yield (dec I) Send))  @))
         N ) ) )
(println (yield (format (opt)) 'ring1))
(bye)