let mem h node =
      let hkey = Hashtbl.hash_param 10 100 node in
      try 
        let _ = find h node hkey in
        true
      with 
          Not_found -> false