external dJointSetAMotorMode : dJointID -> mode:int -> unit = "ocamlode_dJointSetAMotorMode"