;; Clear bad classes and restart fresh
(format #t "~%=== FRESH START ===~%")
(hash-clear! *word-classes*)
(hash-clear! *word-to-class*)
(set! *next-class-id* 0)
(set! *min-similarity* 0.30)
(format #t "Classes: ~a, min-sim: ~a~%" (hash-count (const #t) *word-classes*) *min-similarity*)
;; Reload corpus-learning.scm
(load "corpus-learning.scm")
;; Reset and bootstrap
(corpus-reset)
(set! *cl-pair-mi-built?* #f)
(bootstrap)
;; Run 5 epochs
(run-epochs 5)