gistfile1.txt

  (define-action (index)
    `(html ,(html-header "Account")
           (body
             (h4 "Note that this action needs to reflect that a user is logged in.")
             (a ([href "/account/login"]) "Login") (br)
             (a ([href "/account/signup"]) "Signup"))))

  (define-action (response formp1 formp2)
     (dispatch/c
       `(html ,(html-header "Account")
           (body
             (h4 (string-append "You got: " (string (+ formp1 formp2))))
             (a ([href ,(make-url 'another-action)]) "Now multiply!")))))

  (define-action (another-action) ; Note the lack of params
     `(html ,(html-header "Account")
             (body (h4 (string-append "You got: " (string (* formp1 formp2)))))))