anchor.diff:      Nodes         = Base ++ ["nodes"],
       Node          = Nodes ++ [node],
       Repair        = Node ++ ["repair"],
  -    Join          = Node ++ ["join"] ++ [node1],
  -    Leave2        = Node ++ ["leave"] ++ [node1],
  -    SJoin         = Node ++ ["staged-join"] ++ [node1],
  +    Join          = Node ++ ["join"] ++ [arg1],
  +    Leave2        = Node ++ ["leave"] ++ [arg1],
  +    SJoin         = Node ++ ["staged-join"] ++ [arg1],
       SLeave        = Node ++ ["staged-leave"],
  -    SLeave2       = Node ++ ["staged-leave"] ++ [node1],
  -    ForceRemove   = Node ++ ["force-remove"] ++ [node1],
  -    Replace       = Node ++ ["replace"] ++ [node1] ++ [node2],
  -    SReplace      = Node ++ ["staged-replace"] ++ [node1] ++ [node2],
  -    ForceReplace  = Node ++ ["force-replace"] ++ [node1] ++ [node2],
  +    SLeave2       = Node ++ ["staged-leave"] ++ [arg1],
  +    ForceRemove   = Node ++ ["force-remove"] ++ [arg1],
  +    Replace       = Node ++ ["replace"] ++ [arg1] ++ [arg2],
  +    SReplace      = Node ++ ["staged-replace"] ++ [arg1] ++ [arg2],
  +    ForceReplace  = Node ++ ["force-replace"] ++ [arg1] ++ [arg2],
       Plan          = Node ++ ["plan"],
       Commit        = Node ++ ["commit"],
       Clear         = Node ++ ["clear"],
  
positive.code:         _ -> {false, undefined}
      end,
      {Exists, RD, Ctx#ctx{id=list_to_atom(Command), response=Response}};
  resource_exists(RD, Ctx=?command(Command, Node1)) ->
      Node = Ctx#ctx.node,
      {Exists, Response} = case Command of
          "join" ->
              {true, re_riak:join(Node, Node1)};
          "staged-join" ->
              {true, re_riak:staged_join(Node, Node1)};
          "leave" ->
              {true, re_riak:leave(Node, Node1)};
          "staged-leave" ->
              {true, re_riak:staged_leave(Node, Node1)};
          "force-remove" ->
              {true, re_riak:force_remove(Node, Node1)};
          _ -> {false, undefined}
      end,
      {Exists, RD, Ctx#ctx{id=list_to_atom(Command), response=Response}};
  resource_exists(RD, Ctx=?command(Command, Node1, Node2)) ->
      Node = Ctx#ctx.node,
      {Exists, Response} = case Command of
          "staged-replace" ->
              {true, re_riak:staged_replace(Node, Node1, Node2)};
          "replace" ->
              {true, re_riak:replace(Node, Node1, Node2)};
          "force-replace" ->
              {true, re_riak:force_replace(Node, Node1, Node2)};
          _ -> {false, undefined}
      end,
      {Exists, RD, Ctx#ctx{id=list_to_atom(Command), response=Response}};
  
negative.code:     Clusters       = Base ++ ["clusters"],
      Cluster        = Clusters ++ [cluster],
      CRepair        = Cluster ++ ["repair"],
      CJoin          = Cluster ++ ["join"] ++ [arg1],
      CLeave2        = Cluster ++ ["leave"] ++ [arg1],
      CSJoin         = Cluster ++ ["staged-join"] ++ [arg1],
      CSLeave        = Cluster ++ ["staged-leave"],
      CSLeave2       = Cluster ++ ["staged-leave"] ++ [arg1],
      CForceRemove   = Cluster ++ ["force-remove"] ++ [arg1],
      CReplace       = Cluster ++ ["replace"] ++ [arg1] ++ [arg2],
      CSReplace      = Cluster ++ ["staged-replace"] ++ [arg1] ++ [arg2],
      CForceReplace  = Cluster ++ ["force-replace"] ++ [arg1] ++ [arg2],
      CPlan          = Cluster ++ ["plan"],
      CCommit        = Cluster ++ ["commit"],
      CClear         = Cluster ++ ["clear"],
  