anchor.diff:          (dialogue (user-action-dialogue user-action)))
       (<:div :class "user-entry"
         (if (and (not (emptyp action)) (emptyp dialogue))
  -          (<:li :class "action"
  +          (<:p :class "action"
                  (<:ah action))
             (progn
  -            (<:li :class "character"
  +            (<:p :class "character"
                    (<:ah (user-action-user user-action)))
               (unless (emptyp action)
  -              (<:li :class "parenthetical"
  +              (<:p :class "parenthetical"
                      (<:ah "(" action ")")))
  -            (<:li :class "dialogue"
  +            (<:p :class "dialogue"
                    (<:ah
                     (if (emptyp dialogue)
                         "..."
  
positive.code: .chat-box {
      list-style: none;
      width: 420px;
      background: #eee;
      border: 1px solid #333;
      padding: 5px 14px;
      margin-left: auto;
      margin-right: auto;
  
  }
  
  .chat-box li { font: 12px/14px Courier, fixed; }
  
  .sceneheader, .action, .character { padding-top: 1.5ex; }
  
  .character, .sceneheader { text-transform:uppercase; }
  
  .action { padding-right: 5%; }
  
  .character { margin-left: 40%; }
  
  .dialogue { margin-left: 25%; padding-right: 25%; }
  
  .parenthetical { margin-left: 32%; padding-right: 30%; }
  
  
negative.code: setInterval(updateChat, 1000);
  ")))
       (<:body
        (<:div :class "chat-box" :id "chat-box" (<:p :class "scene-header" (<:ah "EXT. JOSH'S COMPUTER. NIGHT.")))
        (<:form :class "user-story" :name "user-story" :action "javascript:addMsg()"
         (<:label (<:ah "Action: "))
         (<:input :type "textarea" :id "user-action")
  