anchor.diff:                  Invalid(error_message, 404, "Illegal action")
   
               | "resource"::resource_path_parts -> // Someone requests a resource
  -                try_forward_resource node resource_path_parts meth body response inter
  +                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
  
positive.code:         // 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
  
negative.code: 
      // Listen for a a message
      let rec listen (node: Node) (inter: PastryInterface<'a>) =
          printfn "> Waiting..."
          let cxt      = listener.GetContext()
          let request  = cxt.Request
          let response = cxt.Response
  