Module type Sig.MARK


module type MARK = sig .. end

type graph 
type vertex 
val clear : graph -> unit
clear g sets all the marks to 0 for all the vertices of g.
val get : vertex -> int
val set : vertex -> int -> unit