Haskell code to play the Reiner Knizia card game Battle Line.