diff --git a/src/Main.hs b/src/Main.hs
index 0636b36..280c8d6 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -15,7 +15,7 @@ main = do
   hSetBuffering stdout NoBuffering
   pop <- mkPop
   pop' <- runEffect $ for (run 2 1 pop (steps 100)) log
-  res <- bests 5 pop
+  res <- bests 5 pop'
   sequence_ $ format <$> res
   where
     format :: (Individual i, MonadIO m, Pretty i) => i -> m ()