(use-modules (sparql driver)
             (sparql util)
	     (json)
	     (web response))

;; Example query to wikidata listing cats
(define response (sparql-query
  "SELECT ?item 
WHERE 
{
?item wdt:P31 wd:Q146.
}
LIMIT 10
"
  #:uri "https://query.wikidata.org/sparql"
  ;; #:port 80
  #:type "application/sparql-results+json"
  ;;  #:token "..."
  #:store-backend 'blazegraph
  ))


(display
 (json->scm
  (response-port response)))

;; (json->scm
;;  (sparql-query
;;   "SELECT ?item 
;; WHERE 
;; {
;; ?item wdt:P31 wd:Q146.
;; }
;; LIMIT 10
;; "
;;   #:uri "https://query.wikidata.org/sparql"
;;   ;; #:port 80
;;   #:type "application/sparql-results+json"
;;   ;;  #:token "..."
;;   #:store-backend 'blazegraph
;;   ))