pong_in_haskell