(define (make-authenticated-request request)
 (call-with-input-request
   (update-request
     request
     port: (current-error-port)
     headers: (headers
		`((authorization .; write an unparser against section 3.6, using uri-encode-string
		    (#(oauth ((realm . "")
			      (oauth_consumer_key . "foo")
			      (oauth_token . "bar")
			      (oauth_signature_method . "bar")
			      (oauth_signature . "bar")
			      (oauth_timestamp . "bar")
			      (oauth_nonce . "bar")
			      (oauth_version . "bar")
			      )))))))
   #f
   (cut read-string #f <>)
 )