hunk ./Search.hs 148
-turn = withTag (const []) ({-(onEach change =<<) . -}onEach contribute)
+turn = withTag (const []) ((onEach change =<<) .onEach contribute)
hunk ./Search.hs 164
+
+
hunk ./Search.hs 171
-run :: Deps -> StdGen -> Maybe (GenericState Version) -> Evolver Version Simple -> GenericState Version
+
+run 
+	:: Deps 
+	-> StdGen 
+	-> Maybe (GenericState Version) 
+	-> (GenericState Version -> Simple b)
+	-> b
hunk ./Search.hs 181
+play n = do
+	g <- newStdGen 
+	return . map toList . run hackage g Nothing $ sequence <$> take n . iterate (turn =<<) . return 
+