let create shapes =
  let g = create' () in
    List.iter (add_child g) shapes;
    to_shape g