Lan Pong with Haskell