1;;; clustering-tests.scm 2 3;; triggers `determine-loop-and-dispatch` 4(let () 5 (define (a x) (if (= x 0) x (b (sub1 x)))) 6 (define (b x) (if (= x 0) x (a (sub1 x)))) 7 (a 10)) 8