test-cycle12.scm 100 B

1234567
  1. (require <cycle1>)
  2. (require <cycle2>)
  3. (double-c1x)
  4. (double-c2x)
  5. (define (c1x-c2x)
  6. (list c1x c2x))