anchor.diff:  				  (when (= (@ ev stack) ($ "#peek-window .stack-id" (text)))
   				    (clear-peek-window))
   				  (change-stack-count (@ ev stack) -1)
  -				  (change-hand-count (@ ev player) +1)
  +				  ($incf (+ "#" (@ ev player) " .hand-size"))
   				  ($highlight (+ "#" (@ ev stack))))
   				 (shuffled
   				  (when (= (@ ev stack) ($ "#peek-window .stack-id" (text)))
  
positive.code: 	       (create-card-in-hand "#hand" res))
  	     (define-ajax table/stack/reorder (stack card-order))
  
  	     ;;; Note-related actions
  	     ;; TODO table/note/attach
  
  	     ;;; Card-related actions
  	     (define-ajax table/card/flip (card))
  	     (define-ajax table/card/pick-up (card)
  
negative.code: 				 (removed
  				  ($ (+ "#" (@ ev thing)) (remove)))
  				 (played-from-hand 
  				  ($decf (+ "#" (@ ev player) " .hand-size"))
  				  (create-card "body" (@ ev card)))
  				 
  				 (played-from-stack 
  