!7

p-exp {
  S snippetID = #1400200;
  temp ZipFile zip = openZipSnippet(snippetID);
  new TreeSet<S> streets;
  for (S line : linesFromReader(utf8ZipReader(zip, "Strassen_und_Wegenetz.gml")))
    addIfNotNull(streets, startsWithEndsWith_getRest(trim(line), "<suw:Strassenname>", "</suw:Strassenname>"));
    
  updateMechList("Street names Hamburg", streets);
}