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