diff --git a/README.md b/README.md
index 25c156d..e3ed1e6 100644
--- a/README.md
+++ b/README.md
@@ -53,7 +53,7 @@ zs :: [Int]
 zs = 0 : concatMap (\i -> [i, -i]) [1..]
 
 gaussianInts :: [Complex Int]
-gaussianInts = map snd (applyMerge (\x y -> (x*x + y*y, x :+ y)) ints ints)
+gaussianInts = map snd (applyMerge (\x y -> (x*x + y*y, x :+ y)) zs zs)
 ```
 
 Square-free integers ([Wikipedia](https://en.wikipedia.org/wiki/Square-free_integer)):