# jan2018 # (c) Software Lab. Alexander Burger (println "ulimit -s ulimited and 3.4GB of RAM") (stack 3) (for N 10000 (co (intern (pack 'ring N)) (let (N N Send (intern (pack 'ring (if (= 10000 N) 1 (inc N))))) (for (I (yield) (gt0 (yield (dec I) Send)) @) (at (0 . 10) (gc)) ) N ) ) ) (println (yield 1234567 'ring1)) (msg 'ok) (println (bench (gc))) (bye)