external dJointCreateHinge : dWorldID -> dJointGroupID option -> dJointID = "ocamlode_dJointCreateHinge"