cycle -base +fgl

ucycle :: Graph gr => Int -> gr () ()
fgl Data.Graph.Inductive.Example
ucycleM :: GraphM m gr => Int -> m (gr () ())
fgl Data.Graph.Inductive.Example