[allow printing of code after occurance analysis
John Meacham <john@repetae.net>**20060420064652] hunk ./Main.hs 722
-    let g =  return . SS.programSSimplify sopt { SS.so_dataTable = progDataTable prog } . SS.programPruneOccurance
+    let g prog = do
+            let nprog = SS.programPruneOccurance prog
+            when (corePass && dodump) $ do
+                putStrLn "-- After Occurance Analysis"
+                printProgram nprog
+            return $ SS.programSSimplify sopt { SS.so_dataTable = progDataTable prog } nprog