#;6> (define-method (account/info (path (lambda (arg) (string-append "hello-" arg)))) "https://api.dropbox.com/1/account/info" #f read-json)
'(define account/info963
   (let* ((writer #f)
          (uri/req "https://api.dropbox.com/1/account/info")
          (uri (cond ((request? uri/req) (request-uri uri/req))
                     ((uri? uri/req) uri/req)
                     (else (uri-reference uri/req))))
          (req (cond ((request? uri/req) uri/req)
                     (else (make-request method: (if writer 'POST 'GET))))))
     (lambda (path964)
       (let* ((path964
                ((lambda965 (arg966) (string-append967 "hello-" arg966))
                 path964))
              (uri (update-uri
                     uri
                     path:
                     (append (uri-path uri) (map ->string (list path964)))))
              (req (update-request req uri: uri)))
         (fprintf (current-error-port) "\n\n\nREQUEST\n")
         (write-request (update-request req port: (current-error-port)))
         (fprintf (current-error-port) "\n")
         (receive
           (reader uri response)
           (call-with-input-request req #f read-json968)
           (values reader (list uri response)))))))