anchor.diff:              margin-left: auto;
               width: 600px;
             }
  +.logout-button { margin-right: auto; margin-left: auto; width: 80px;}
   
   "
   )
  
positive.code:   (when *server* (stop *server*) (setf *server* nil)))
  
  (define-easy-handler (login :uri "/login") (username)
    (unless *session*
      (start-session))
    (with-yaclml-output-to-string
      (<:html
       (<:head
  
negative.code:        (<:input :type "textarea" :id "user-action")
         (<:label (<:ah "Dialogue: "))
         (<:input :type "textarea" :id "user-dialogue")
         (<:input :type "submit" :value "Send"))
        (<:form :class "logout-button" :action "/logout"
          (<:input :type "submit" :value "Log Out"))))))
  
  (define-easy-handler (logout-page :uri "/logout") ()
    (when (and *session* (session-value 'username))
      (let ((username (session-value 'username)))
        (logout username)
        (setf (session-value 'username) nil)))
    (redirect "/login"))
  
  (define-easy-handler (ajax :uri "/ajax") (f)
    (let ((func (find-ajax-func f)))
  