diff --git a/levenshtein.ml b/levenshtein.ml
index c9553b4c..dbeaddf8 100644
--- a/levenshtein.ml
+++ b/levenshtein.ml
@@ -555,3 +555,10 @@ module StrIndex = struct
     in
     __to_list ~of_list idx
 end
+
+(*
+open Batteries;;
+let words = File.with_file_in "/usr/share/dict/cracklib-small"  (fun i -> IO.read_all i |> String.nsplit ~by:"\\n");;
+let idx = List.fold_left (fun idx s -> Levenshtein.StrIndex.add_string idx s s) Levenshtein.StrIndex.empty words;;
+Levenshtein.StrIndex.retrieve_string ~limit:1 idx "hell" |> Levenshtein.klist_to_list;;
+*)