added pong.hs