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