Intra.Arg
module Node : Node
module Edge : Edge
val main_entry : Node.t
val next : Node.t -> (Edge.t * Node.t) list