let hash_contains htbl key =
    try ((Hashtbl.find htbl key)) with
    |Not_found -> false
    |_ -> true;;