A low quality Haskell chatbot