external dJointSetData : dJointID -> data:int -> unit = "ocamlode_dJointSetData"