functor (G : Graph.T-> T