Welcome to the CHICKEN Scheme pasting service

$ mitmdump -vvvvv
127.0.0.1 GET https://api.dropbox.com/1/metadata//dropbox/%2FPublic?hash=02d4b5240ab128bcc0e69d70ad0b185d
    Authorization: OAuth oauth_signature="X", oauth_consumer_key="X", oauth_token="X", oauth_signature_method="PLAINTEXT", oauth_version="1.0"
    Host: api.dropbox.com
    User-Agent: Chicken Scheme HTTP-client/0.5

 << 304 Not Modified 0B

    Server: nginx/1.2.3
    Date: Thu, 01 Nov 2012 16:23:06 GMT
    Connection: keep-alive
    Access-Control-Allow-Origin: *

     (lambda (response)
       (let ((port (make-delimited-input-port
                    (response-port response)
                    (header-value 'content-length (response-headers response)))))
	(pp "poop poop!")
         (if (= 200 (response-class response)) ; Everything cool?
             (let ((result (reader port)))
               (discard-remaining-data! #f port)
               result)
             (http-client-error
              'call-with-input-request
              ;; Message
              (sprintf (case (response-class response)
                         ((400) "Client error: ~A ~A")
                         ((500) "Server error: ~A ~A")
                         (else "Unexpected server response: ~A ~A"))
                       (response-code response) (response-reason response))
	      ;; arguments
	      (list uri)
              ;; Specific type
              (case (response-class response)
                ((400) 'client-error)
                ((500) 'server-error)
                (else 'unexpected-server-response))
              'response response
              'body (read-string #f port)))))