<> <> <> <<>> <> <<>> RoundImpl: CEDAR PROGRAM ~ BEGIN RoundObj: TYPE ~ RECORD [count: INT _ 0, r: REF RoundObj _ NIL]; <> TheCircleGame: PROC [size: CARDINAL] ~ { first: REF RoundObj _ NEW[RoundObj]; last: REF RoundObj; last _ first; IF size <= 1 THEN RETURN; FOR cnt: CARDINAL IN [1..size] DO next: REF RoundObj _ NEW[RoundObj]; next.r _ last; next.count _ cnt; last _ next; ENDLOOP; first.r _ last; first _ NIL; }; <<>> END. <<>>