The Server

---

(module server mzscheme 
  
  (provide 
   ;; Request = (cons String [Listof String])
   
   ;; Response [a type]
   ;; Mime is one of: "text/html" or "text/text" or false
   
   create-response ;; Nat String String Mime [Listof String] -> Response 
   ;; create a response from the given values 
   
   server ;; (Request -> Response) -> Empty
   ;; given a function that produces responses for requests, 
   ;; _server_ responds to connections on port CSU211-SERVER 
   )

   ... definitions ...

)

---

full code