external dJointGetBody : dJointID -> index:int -> dBodyID = "ocamlode_dJointGetBody"