[Support -d e-size for dumping e-sizes
Einar Karttunen <ekarttun@cs.helsinki.fi>**20060723105557] hunk ./E/Traverse.hs 10
+    eSize,
hunk ./E/Traverse.hs 40
-import qualified E.Demand as Demand
-import qualified Info.Info as Info
hunk ./FlagDump.flags 41
+e-size      print the size of E after each pass
hunk ./Main.hs 385
-
+    printESize "Before programMapRecGroups" prog
hunk ./Main.hs 387
+    printESize "After  programMapRecGroups" prog
hunk ./Main.hs 895
+    wdump FD.ESize $ printESize ("Before "++name) prog
hunk ./Main.hs 916
+    wdump FD.ESize $ printESize ("After  "++name) prog'
hunk ./Main.hs 1074
-
-
-
+printESize :: String -> Program -> IO ()
+printESize str prog = putErrLn $ str ++ " program e-size: " ++ show (eSize (programE prog))