let key : Hmap.t Thread_local_storage.t = Thread_local_storage.create ()