(def flaglink (i user whence)
    (when (and user (> (karma user) flag-threshold*))
      (pr bar*)
      (w/rlink (do (if (mem user i!flags)
                       (pull user i!flags)
                       (push user i!flags))
                   (save-item i)
                   whence)
        (pr (if (mem user i!flags) "unflag" "flag")))))