[when converting and E into a program, choose the name of the entry point using the module stored in the Program
John Meacham <john@repetae.net>**20060207051248] hunk ./E/LambdaLift.hs 184
---shouldLift EError {} = True
hunk ./E/LambdaLift.hs 188
-typeLift EError {} = "Error"
hunk ./E/Program.hs 59
-    Just num = List.find (`notElem` [ n  | (TVr { tvrIdent = n },_) <- ds ]) [2,4 ..]
+    Just num = List.find (`notElem` [ n  | (TVr { tvrIdent = n },_) <- ds ]) [toId $ toName Val (show $ progModule prog,"main" ++ show n) |  n <- [1 :: Int ..] ]
hunk ./E/Program.hs 62
-    main = tVr 2 (typeInfer (progDataTable prog) e)
+    main = tVr (toId $ toName Val (show $ progModule prog,"main")) (typeInfer (progDataTable prog) e)