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"