evolve :: Evolvable a => 
  EvOptions a -> EvData a -> IO (Population a)
evolve opts datum = do
  pop <- randomPopulation opts
  evolve' 0 opts datum pop
evolve :: Evolvable a => 
  EvOptions a -> EvData a -> IO (Population a)
evolve opts datum = do
  pop <- randomPopulation opts
  evolve' 0 opts datum pop
evolve opts datum = do
  pop <- randomPopulation opts
  evolve' 0 opts datum pop