[add version of simplification that prints steps as they happen for debugging
John Meacham <john@repetae.net>**20060419042548] hunk ./Main.hs 740
+
+simplifyProgramPStat sopt name dodump prog = do
+    let istat = progStats prog
+    let g =  SS.programSSimplifyPStat sopt { SS.so_dataTable = progDataTable prog } . SS.programPruneOccurance
+    prog <- transformProgram ("PS:" ++ name) True dodump g prog  { progStats = mempty }
+    when ((dodump && dump FD.Progress) || dump FD.Pass) $ Stats.printStat name (progStats prog)
+    return prog { progStats = progStats prog `mappend` istat }