(bind-func xtm_bone_add_children
(lambda (bone:XTMBone* node:aiNode* root:XTMModel*)
(let ((num_children (tref node 3))
(i:i32 0)
(children (tref node 4))
(xtmchildren:XTMBone** (halloc num_children)))
(dotimes (i num_children)
(pset! xtmchildren i (xtm_find_bone root (toString (tref-ptr (pref children i) 0)))))
void)))