make-trie function sample

(defun make-trie (dict)
  (iterate (for each in (get-current-keys dict))
    (collect
        (list each
              (list :hanzi   (get-resolutions-at each dict)
                    :subtrie (make-trie
                              (iterate (for row in (elts-with each dict))
                                (collect (truncate-dict-key row)))))))))