external dBodyGetJoint : dBodyID -> index:int -> dJointID = "ocamlode_dBodyGetJoint"