(define (trie->lists trie)
  (define (internal trie acc)
    (if (hash? trie)
        (apply
         append
         (hash-map
          trie
          (λ (key value)
            (internal value (cons key acc)))))
        (list (reverse acc))))
  (internal trie '()))