external dJointCreateAMotor : dWorldID -> dJointGroupID option -> dJointID = "ocamlode_dJointCreateAMotor"