sig
  val ( |> ) : ('a, 'b) Core_hashtbl.t -> '-> 'b
  val ( |?> ) : ('a, 'b) Core_hashtbl.t -> '-> 'b option
  val ( <| ) : ('a, 'b) Core_hashtbl.t -> 'a * '-> unit
end