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