anchor.diff:              (<:p (<:ah "Successfully logged in as " username "."))
               (push username *users*)
               (setf (session-value 'username) username
  -                  (session-value 'last-message-id) *max-message-id*)
  +                  (session-value 'last-action-id) *max-action-id*)
               (format t "~&~A logged in.~%" username)
               (redirect "/"))
             (<:div
  
positive.code:     (<:html
       (<:head
        (<:title "Hello!")
        (<:script :src "http://ajax.googleapis.com/ajax/libs/jquery/1.5.1/jquery.min.js" :type "text/javascript")
        (<:script :type "text/javascript" (<:ai "
  function callback(data) {
  
negative.code: };
  
  function addMsg() {
    var action = $('#user-action').val();
    var dialogue = $('#user-dialogue').val();
    $('#user-action').val('');
    $('#user-dialogue').val('');
    $.get('ajax', { 'f' : 'ADD-ACTION', 'action' : action, 'dialogue' : dialogue }, callback);
  }
  
  function updateChat() {
  