external dJointCreateContact : dWorldID -> dJointGroupID option -> ('a, 'b) dContact -> dJointID = "ocamlode_dJointCreateContact"