An implementation of the card game War, written in Haskell. A good pedagogical example of the RWST Monad Transformers as well. http://en.wikipedia.org/wiki/War_(card_game)