(define (server request)
  (let ((c-id (get-parameter request)))
    (let ((k (get-registered-continuation c-id)))
      (if k
	  (k request)
	  ...))))