anchor.diff:  				  (create-card "body" (@ ev card)))
   				 (played-to-stack
   				  (change-stack-count (@ ev stack) +1)
  -				  (change-hand-count (@ ev player) -1))
  +				  ($decf (+ "#" (@ ev player) " .hand-size")))
   				 (picked-up 
   				  ($ (+ "#" (@ ev card)) (remove))
  -				  (change-hand-count (@ ev player) +1))
  +				  ($incf (+ "#" (@ ev player) " .hand-size")))
   
   				 (rolled)
   				 (flipped-coin))))
  
positive.code: 	   (defun scroll-to-bottom (selector)
  	     (let ((sel ($ selector)))
  	       (chain sel (scroll-top (@ sel 0 scroll-height)))))
  
  	   (defun newline->break (message)
  	     (let ((re (new (-reg-exp #\newline :g))))
  	       (chain message (replace re "<br />"))))	   
  
negative.code: 				 (removed
  				  ($ (+ "#" (@ ev thing)) (remove)))
  				 (played-from-hand 
  				  ($decf (+ "#" (@ ev player) " .hand-size"))
  				  (create-card "body" (@ ev card)))
  				 
  				 (played-from-stack 
  