(define-easy-handler (redirect :uri "/redirect" :default-request-type :post)
    (pass)
  :request-type :post
  (with-output-to-string (*html-output-stream*)
    (if (string= *password*  pass)
	(progn (start-session)
	       (redirect "/submit" ))
	(redirect "/"))))