anchor.diff:          // NOTE: Only invalid requests are automatically replied
           match result with
           | Valid(updated_node, updated_state) ->
  -
  -            // Serialize the updated state
  -            let state_msg = inter.serialize updated_state
  -            // Send it to the node closest to itself
  -            //send_backup_state node state_msg
  -
               listen updated_node { inter with state = updated_state; }
           | Invalid(error_message, status, reason) ->
               error error_message
  
positive.code: 
      // Listen for a a message
      let rec listen (node: Node) (inter: PastryInterface<'a>) =
          let cxt      = listener.GetContext()
          let request  = cxt.Request
          let response = cxt.Response
  
negative.code:                 Invalid(error_message, 404, "Illegal action")
  
              | "resource"::resource_path_parts -> // Someone requests a resource
                  let res = try_forward_resource node resource_path_parts meth body response inter
                  // Handle sending of backups
                  match res with
                  | Valid(node', state') ->
                      // Serialize the updated state
                      let state_msg = inter.serialize state'
  
                      // Send it to the node closest to itself
                      send_backup_state node state_msg
  
                      res
                  | _ -> res
  
              | _ ->
                  let error_message = sprintf "Not related to this: %s" path
  