Play with OpenGL and Pipes in Haskell