(define-page "/register"
             register-page
             method: 'post)

(define register-page
             (lambda (#!optional
                      userHandle
                      userPassword1
                      userPassword2
                      userFirstName
                      userLastName
                      userCountry)
               `(form (@ (method post)
                         (action ,(make-pathname (app-root-path) "register")))
                  (p (string-append "User Handle: " ,($ 'userHandle)))
                  (p (string-append "Password 1: "  ,($ 'userPassword1)))
                  (p (string-append "Password 2: "  ,($ 'userPassword2)))
                  (p (string-append "First Name: "  ,($ 'userFirstName)))
                  (p (string-append "Last Name: "   ,($ 'userLastName)))
                  (p (string-append "Country: "     ,($ 'userCountry)))
                  (div)
                    (label "User Handle: ")
                    (input (@ (type "text") (name "userHandle")))
                  (div)
                    (label " Password: ")
                    (input (@ (type "password") (name "userPassword1")))
                  (div)
                    (label " Confirm Password: ")
                    (input (@ (type "password") (name "userPassword2")))
                  (div)
                    (label " First Name: ")
                    (input (@ (type "text") (name "userFirstName")))
                  (div)
                    (label " Last Name: ")
                    (input (@ (type "text") (name "userLastName")))
                  (div)
                    (label " Country: ")
                    (input (@ (type "text") (name "userCountry")))
                  (div)
                    (input (@ (type "submit") (value "Submit"))))))