(define (get-some-resource id)
  (let* ((id (string->number id))
         (resource (find-resource id)))
    (if resource
        ;; This will send a "406 Not Acceptable" response when no
        ;; content type could be negotiated
        (negotiating-content
         (xml (send-xml-response body: resource))
         (json (send-json-response body: resource)))
        (not-found))))