With Extlib you can use :
let get_one hashtbl = Enum.peek (Hashtbl.enum hashtbl)
val get_one : ('a, 'b) Hashtbl.t -> ('a * 'b) option