--- List.hs.dist	2008-09-22 11:11:03.000000000 -0700
+++ List.hs	2008-09-22 20:20:22.000000000 -0700
@@ -957,14 +957,10 @@
 sum                     =  foldl (+) 0
 product                 =  foldl (*) 1
 #else
-sum     l       = sum' l 0
-  where
-    sum' []     a = a
-    sum' (x:xs) a = sum' xs (a+x)
-product l       = prod l 1
-  where
-    prod []     a = a
-    prod (x:xs) a = prod xs (a*x)
+sum []     = 0
+sum l = foldl1' (+) l
+product []     = 1
+product l = foldl1' (*) l
 #endif
 
 -- -----------------------------------------------------------------------------