external dJointAddPRTorque : dJointID -> torque:float -> unit = "ocamlode_dJointAddPRTorque"