Welcome to the CHICKEN Scheme pasting service

(use awful html-tags)
(enable-sxml #t)

(define login-page
  (lambda ()
    (form (@ (method "post")
               (action ,(make-pathname base-path "login-trampoline")))
      (<h1> "Creative Commons Radio")
      (<p> "Please login to access your account, rate songs, and more!")
      (<label> "User Handle: ")
      (<input> type: "text" name: "user")
      (<label> "Password: ")
      (<input> type: "password" name: "password")
      (<input> type: "submit" value: "Submit"))))