Tiny pong in haskell.