let put db k v =
    In_thread.run (fun () -> LevelDB.put db k (Sexp.to_string (sexp_of_t v)))