external add_child    : t -> Shape.t -> unit = "composite_shape_add_child"