helicopter/flappy bird in haskell