sig type graph val graph : ?loops:bool -> xrange:int * int -> yrange:int * int -> prob:float -> int -> Rand.Planar.S.graph end