simple genetic algorithm in haskell to evolve a given string