Simulating pokemon battles in Haskell