Welcome to the CHICKEN Scheme pasting service

(define (play endpoint resource)
  (let* ((body (make-body resource))
	 (len (string-length body))
	 (request (make-play-request endpoint))
	 (writer (lambda (r)
		   (display "***")
		   ; add content length to request		   
		   (request-headers-set! request 
					 (headers `((content-length ,len)) (request-headers request)))
		   body))
	 (reader (lambda (r)
		   (display "..."))))
    ; make call
    (call-with-response request writer reader)))