From c5473857f865c87aa3e681e706bf73a6cc4485ce Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Wed, 5 Mar 2014 01:09:48 +0100
Subject: [PATCH] small example in lenvenshtein

---
 levenshtein.ml | 7 +++++++
 1 file changed, 7 insertions(+)

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;;
+*)