Some Haskell code to solve and render a game of Peg Solitaire