guile-vocabulary-explorer/main.scm

(import (except (rnrs base) vector-map)
        (only (guile)
              lambda* λ
              simple-format
              display)
        ;; standard library imports
        (ice-9 pretty-print)
        (srfi srfi-1)  ; list utils
        (srfi srfi-43)  ; vectors
        (srfi srfi-69)  ; hash tables
        ;; third party
        (json)
        ;; libs
        (print-utils)
        (vector-utils)
        (alist-utils)
        (random-utils)
        (vocabulary-filters)
        (statistics)
        ;; (string-utils)
        ;; data
        (model)
        (reader)
        ;; concepts
        (contract)
        ;; file system
        (fslib)
        ;; training of words
        (training)
        ;; user defined
        (user-defined)
        (rename (search)
                (search ?)
                (searches ??)))


(define voc
  (vocabulary-shuffle (read-vocabulary (fsing-join "data" "lessons.json"))))
(define hsk-1-voc (read-vocabulary (fsing-join "data" "hsk-1.json")))
(define hsk-2-voc (read-vocabulary (fsing-join "data" "hsk-2.json")))
(define hsk-3-voc (read-vocabulary (fsing-join "data" "hsk-3.json")))
(define hsk-4-voc (read-vocabulary (fsing-join "data" "hsk-4.json")))
(define hsk-5-voc (read-vocabulary (fsing-join "data" "hsk-5.json")))
(define hsk-6-voc (read-vocabulary (fsing-join "data" "hsk-6.json")))