(use oauth-client)

(define yBOSS (make-oauth-service-provider
		 protocol-version: '1.0
		 credential-request-url: "https://not-required"
		 owner-auth-url: "https://not-required"
		 token-request-url: "https://not-required"
		 signature-method: 'plaintext))

(define yBOSS-app
  (make-oauth-service
    service: yBOSS
    client-credential: (make-oauth-credential "<token>" "<secret>")))

(with-oauth yBOSS-app empty-credential
 (lambda ()
  (call-with-input-request "https://yboss.yahooapis.com/ysearch/web?q=ipod" #f (cut read-string #f <>))))