SELECT ?distance ?work ?workLabel ?geo ?location ?locationLabel
WITH {
  SELECT ?work ?location ?geo ?distance WHERE {
    ?work wdt:P921 ?location . 
    ?location wdt:P625 ?other_geo . 
    wd:Q791 wdt:P625 ?geo .
    BIND(geof:distance(?other_geo, ?geo) AS ?distance)
  }
  ORDER BY ?distance
  LIMIT 100
} AS %results
WHERE {
  INCLUDE %results
          
  # Filter is expensive if earlier
  FILTER NOT EXISTS { ?work wdt:P31 wd:Q17329259 }
  
  # Label the result
  SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],en,cs,da,de,es,jp,nl,no,ru,sv,zh". }
}
ORDER BY ?distance