let labl_create nodes =
  let g = create' () in
    List.iter (add_child g) nodes;
    g