;; defines a folderlist-page
(define (render-folderlist-page request user-identification project-id sector-id subsector-id)
  (local [(define (response-generator make-url)
       (response/xexpr
        `(html (head (title ,(get-project-name-from-project-id project-id)))
               (body (form
                        ((action ,(make-url control-forms)))
                        (...)
      (define (control-forms request)
        (let ([submittype (extr-bind-sing 'submit request)])
          (cond [(equal? submittype "AddFolder") (decide-which-form-to-see (...)
                [(equal? submittype "Logoff") (log-me-out (...)
                [(equal? submittype "GotoAdminProjectlist") (render-admin-projectlist (...)
(send/suspend/dispatch response-generator)
    (render-entry-page request))))

;; takes a symbol and a request and returns the single binding
(define (extr-bind-sing symb request)
  (extract-binding/single symb (request-bindings request)))