let make_id a = match a, id_style with | _, `Unique | `Unique, _ -> incr node_count; sprintf "node%03d" !node_count | `Of v, `Structural -> Index_anything.get v |> sprintf "id%d"