(define parsed-json
  (let* ((uri (uri-reference "https://example.api.com/v2.0/example.json"))
       (username "username")
       (password "password")
       (query '((query. "yolo")))
       (req (update-uri uri username: username password: password query: query)))
  (json-parsers (cons (cons 'object alist->hash-table)  (json-parsers)))
  (with-input-from-request req #f read-json)))