anchor.diff:           get-initial-state
            (lambda () (create viewable false))
            handle-click
  -         (lambda (e) (unless (prop not-viewable)
  +         (lambda (e)
  +           (unless (prop not-viewable)
                          (set-state viewable (not (state viewable)))
                          (chain e (stop-propagation)))))
   
  
positive.code:                 :text (@ op comment)
                  :opinions (prop opinions (slice 1))
                  :tree-address (chain (prop tree-address)
                                       (concat (list (@ op id)))))))))
  
         (def-component target-root
             (psx
  
negative.code:              (psx
                (:span :style (create font-weight :bold position :relative)
                       :class (if focussed "parent-active" "parent-inactive")
                       :key (unique-id)
                       (rebreak (prop text))
                       (when (and focussed
                                  (eql (prop last-char-pos)
  