[temporarily disable case-pullin transformation
John Meacham <john@repetae.net>**20060425021329] hunk ./Grin/Simplify.hs 281
-    f (Case e as :>>= lam)  | (sizeLam lam - 1) * length as <= 3 = do
-        mtick "Optimize.optimize.case-pullin"
-        return (Case e (map (mapExp (:>>= lam)) as))
+--    f (Case e as :>>= lam)  | (sizeLam lam - 1) * length as <= 3 = do
+--        mtick "Optimize.optimize.case-pullin"
+--        return (Case e (map (mapExp (:>>= lam)) as))