;; Test jigsaw switch after pair-MI plateau
(format #t "~%=== Jigsaw Switch Test ===~%")
(format #t "Classes: ~a, zero-merge rounds: ~a, phase: ~a~%"
(hash-count (const #t) *word-classes*)
*cl-merge-rounds-zero*
*cl-sim-phase*)
(cl-l0-cluster!)
(format #t "~%Phase after: ~a, classes: ~a~%"
*cl-sim-phase*
(hash-count (const #t) *word-classes*))
(hash-for-each
(lambda (cid members)
(format #t " C~a: ~{~a~^, ~}~%" cid members))
*word-classes*)