Functor Lwt_pqueue.Make

module Make: 
functor (Ord : OrderedType) -> S  with type elt = Ord.t

type elt 

type t 

val create : unit -> t

val add : elt -> t -> unit

val take : ?timeout:float -> t -> elt Lwt.t

val size : t -> int

val fold : ('a -> elt -> 'a) -> 'a -> t -> 'a