Dominion in Haskell