Writing a civs simulator in haskell