head -n20000 $@.tmp > $@

	rm $@.tmp

dicos/JMdict_%.nani: dictionaries/JMdict.xml tools/jmdict.scm dictionaries/frequency.tsv $(DICO_MODULES)

	guile -L modules tools/jmdict.scm build \

        $< $(shell echo $@ | sed 's|^.*_\([^.]*\)\..*$$|\1|g') $@

(use-modules (ice-9 match))

(use-modules (ice-9 binary-ports))

;; Break these steps to try and let the GC reclaim these big objects

(define (get-results1 input frq)

  (call-with-input-file input

     (if (equal? lang "e")

       (compile input (const #t) output)

       (compile input (lambda (sense) (equal? (sense-language sense) lang)) output)))

    (else (format #t "Unknown cmd ~a.~%" cmd))))

  ((_ "print" word input)

   (print word input)))

     (if (equal? lang "e")

       (compile input (const #t) output)

       (compile input (lambda (sense) (equal? (sense-language sense) lang)) output)))

    (else (format #t "Unknown cmd ~a.~%" cmd))))

  ((_ "print" word input)

   (print word input)))