let main = fun ping _ = (pong 0) and pong _ = (ping 0) ; ping 0