| (require opencage) |
| (define api-key (or (getenv "OPENCAGE_API_KEY") (error 'demo "set OPENCAGE_API_KEY"))) |
| (define c (make-opencage-client api-key #:defaults '((language . "en")))) |
| (define r (opencage-geocode c "Berlin" #:params '((limit . 1)))) |
| (hash-ref (oc-response-data r) 'results) |