Pokemon Showdown chatbot coded in Haskell