A game about exponential growth written in Haskell