(handle-exceptions
  x
  (begin
    (display "went wrong")
    (newline)
    (pp (request-uri (car ((condition-property-accessor 'exn 'arguments) x))))
    (newline)
    (newline)
    (pp (condition->list x))
    (newline))
  (nth-value 2
	     (call-with-response
	       (make-request uri: (uri-reference "http://knodium.co"))
	       (lambda (p) (display "writing") (newline) #f)

	       (lambda (p) (display "reading")(newline)#f)))
  )