mkIntExprInt :: DynFlags -> Int -> CoreExpr         -- Result = I# i :: Int
mkIntExprInt dflags i = mkConApp intDataCon  [mkIntLitInt dflags i]
mkIntExprInt :: DynFlags -> Int -> CoreExpr
mkIntExprInt dflags i = mkConApp intDataCon  [mkIntLitInt dflags i]
mkIntExprInt dflags i = mkConApp intDataCon  [mkIntLitInt dflags i]