anchor.diff:  setInterval(updateChat, 1000);
   ")))
        (<:body
  -      (<:ul :class "chat-box" :id "chat-box" (<:li :class "scene-header" (<:ah "EXT. JOSH'S COMPUTER. NIGHT.")))
  +      (<: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")
  
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:         (dialogue (user-action-dialogue user-action)))
      (<:div :class "user-entry"
        (if (and (not (emptyp action)) (emptyp dialogue))
            (<:p :class "action"
                 (<:ah action))
            (progn
              (<:p :class "character"
                   (<:ah (user-action-user user-action)))
              (unless (emptyp action)
                (<:p :class "parenthetical"
                     (<:ah "(" action ")")))
              (<:p :class "dialogue"
                   (<:ah
                    (if (emptyp dialogue)
                        "..."
  