[add components routine
John Meacham <john@repetae.net>**20060419021044] hunk ./Util/Graph.hs 62
+
+components :: Graph n k -> [[n]]
+components (Graph g ln kv fn) = map decode forest where
+    forest = Data.Graph.scc g
+    decode n = dec n []
+    dec (Node v ts) vs = ln v:foldr dec vs ts