[speed up show instance for numbers some
John Meacham <john@repetae.net>**20080306033718] hunk ./lib/base/Jhc/Inst/Show.hs 59
-showWord w rest = case quotRem w 10 of
-    (n',d) -> if n' == 0 then rest' else showWord n' rest'
+showWord w rest = w `seq` case quotRem w 10 of
+    (n',d) -> n' `seq` d `seq` rest' `seq` if n' == 0 then rest' else showWord n' rest'
hunk ./lib/base/Jhc/Inst/Show.hs 64
-showWordMax w rest = case quotRem w 10 of
-    (n',d) -> if n' == 0 then rest' else showWordMax n' rest'
+showWordMax w rest = w `seq` case quotRem w 10 of
+    (n',d) -> n' `seq` d `seq` rest' `seq` if n' == 0 then rest' else showWordMax n' rest'