(module cookies mzscheme

  (provide (all-defined))

  (require (lib "cookie.ss" "net"))
 
  (define cookies (getenv "HTTP_COOKIE"))
 
  (define get-one-cookie
    (lambda (s) 
      (let ([cs (get-cookie s cookies)])
	(or (and cs (not (null? cs)) (car cs))
	    ""))))
)