Planar.Make
module B : sig ... end
type graph = B.G.t
val graph : ?loops:bool -> xrange:(int * int) -> yrange:(int * int) -> prob:float -> int -> graph