[debugging added
martin.hofmann@uni-bamberg.de**20081203145703] hunk ./src/Data/Rules.hs 14
-    rulesToList,
+    rulesToList, rulesToSet,
hunk ./src/Data/Rules.hs 26
+import Data.List (foldl')
+import Debug.Trace
+
hunk ./src/Data/Rules.hs 91
-fold f i rs = S.fold f i (unRS rs)
+fold f i rs =  trace "USING FOLD for Rules" $ foldl' (flip f) i (rulesToList rs) -- S.fold f i (unRS rs)