lab2 haskell evol