-gLASGOW_MISC = SLIT("PreludeGlaMisc")
-gLASGOW_ST = SLIT("PreludeGlaST")
-pRELUDE = SLIT("Prelude")
-pRELUDE_BUILTIN = SLIT("PreludeBuiltin")
-pRELUDE_CORE = SLIT("PreludeCore")
-pRELUDE_FB = SLIT("PreludeFoldrBuild")
-pRELUDE_IO = SLIT("PreludeIO")
-pRELUDE_LIST = SLIT("PreludeList")
-pRELUDE_PRIMIO = SLIT("PreludePrimIO")
-pRELUDE_PS = SLIT("PreludePS")
-pRELUDE_RATIO = SLIT("PreludeRatio")
-pRELUDE_TEXT = SLIT("PreludeText")
+gHC__ = SLIT("GHC") -- Primitive types and values
+
+pRELUDE = SLIT("Prelude")
+pREL_BASE = SLIT("PrelBase")
+pREL_READ = SLIT("PrelRead")
+pREL_NUM = SLIT("PrelNum")
+pREL_LIST = SLIT("PrelList")
+pREL_TUP = SLIT("PrelTup")
+pACKED_STRING= SLIT("PackBase")
+cONC_BASE = SLIT("ConcBase")
+iO_BASE = SLIT("IOBase")
+mONAD = SLIT("Monad")
+rATIO = SLIT("Ratio")
+iX = SLIT("Ix")
+sT_BASE = SLIT("STBase")
+aRR_BASE = SLIT("ArrBase")
+fOREIGN = SLIT("Foreign")
+
+mAIN = SLIT("Main")
+gHC_MAIN = SLIT("GHCmain")
+gHC_ERR = SLIT("GHCerr")
+
+
+