import IOExts ( unsafePerformIO ) -- ToDo: remove
import PrelGHC --( unsafeCoerce#, dataToTag#,
-- indexPtrOffClosure#, indexWordOffClosure# )
-import IO ( hPutStr, stderr )
-import Char ( ord )
import PrelAddr ( Addr(..) )
import PrelFloat ( Float(..), Double(..) )
import Word