external dBodyGetWorld : dBodyID -> dWorldID = "ocamlode_dBodyGetWorld"