Graph.Cycles
type weight =
| Normal of int
| Obligatory of int
module Fashwo (GB : sig ... end) : sig ... end