external dJointGetAMotorParam : dJointID -> dJointParam -> float = "ocamlode_dJointGetAMotorParam"