[have makeRule create a single rule instead of a 'Rules' structure.
John Meacham <john@repetae.net>**20060227153005] hunk ./E/Rules.hs 257
-    -> Rules
-makeRule name uniq fvs head args body = fromRules [rule] where
+    -> Rule
+makeRule name uniq fvs head args body = rule where
hunk ./Main.hs 190
-    let nrules = mconcat [ makeRule n (progModule prog,i) vs head args e2 | (n,vs,e1,e2) <- rawRules, let (EVar head,args) = fromAp e1 | i <- [1..] ]
+    let nrules = fromRules [ makeRule n (progModule prog,i) vs head args e2 | (n,vs,e1,e2) <- rawRules, let (EVar head,args) = fromAp e1 | i <- [1..] ]