ping pong in cloud haskell