Better pong using foldp