;; -----------------------------------------------------------------------------
;; The Student Contribution [1]

;; Develop a function that consumes a Request and produces a Response from it. 

;; The code, message, date should be minimal correct information. 
;; Use "text/html" for the mime code. Try "text/text" when the server works. 
;; The content of the response should be "hello world" followed by a random 
;; number between 0 and 10,000. 

;; NOTE: The function ignores the request. 

;; Request -> Response 
;; produce a simple response for a request to a web server 
(define (response-produce request)
  (create-response 200 "Okay" "Saturday, December 2, 2005" "text/html"
                   (list "hello world" (number->string (random 10000)))))

(server response-produce)