@prefix : <http://example.org/junk#> .
@prefix log: <http://www.w3.org/2000/10/swap/log#> .
@prefix rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#> .
@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
@prefix exif: <http://nwalsh.com/rdf/exif#> .
@prefix dc: <http://purl.org/dc/elements/1.1/> .
@prefix str: <http://www.w3.org/2000/10/swap/string#> .
@prefix geo: <http://www.w3.org/2003/01/geo/wgs84_pos#> .
@prefix cyc: <http://opencyc.sourceforge.net/daml/cyc.daml#> .
@prefix dcterms: <http://purl.org/dc/terms/> .

{ ?p exif:dateTime ?d .
  (?d "([0-9]+):") str:scrape ?year .
  (?d "[0-9]+:([0-9]+):") str:scrape ?month .
  (?d "[0-9]+:[0-9]+:([0-9]+) ") str:scrape ?day .
  (?d "[0-9]+:[0-9]+:[0-9]+ ([0-9]+):") str:scrape ?hour .
  (?d "[0-9]+:[0-9]+:[0-9]+ [0-9]+:([0-9]+):") str:scrape ?minute .
  (?d "[0-9]+:[0-9]+:[0-9]+ [0-9]+:[0-9]+:([0-9]+)") str:scrape ?second .
  ?dcdate is str:concatenation of ( ?year "-" ?month "-" ?day "T"
                                    ?hour ":" ?minute ":" ?second "Z") .
} => { ?p dc:date ?dcdate } .

#{ ?p dc:type <http://purl.org/dc/dcmitype/Image> .
#  ?p dc:date ?date .
#  ?q rdf:type <http://www.w3.org/2003/01/geo/wgs84_pos#Point> .
#  ?q dc:date ?date .
#  ?q geo:lat ?lat .
#  ?q geo:long ?long .
#} => { ?p dcterms:spatial [ cyc:near [ geo:lat ?lat; geo:long ?long ] ] . } .