TicTacToe with HOpenGL in haskell