diff --git a/haskell.html.markdown b/haskell.html.markdown
index f28fcfe7..6a64442f 100644
--- a/haskell.html.markdown
+++ b/haskell.html.markdown
@@ -282,7 +282,7 @@ foldl (\x y -> 2*x + y) 4 [1,2,3] -- 43
 foldr (\x y -> 2*x + y) 4 [1,2,3] -- 16
 
 -- This is now the same as
-(2 * 3 + (2 * 2 + (2 * 1 + 4)))
+(2 * 1 + (2 * 2 + (2 * 3 + 4)))
 
 ----------------------------------------------------
 -- 7. Data Types