anchor.diff:  
   // Replies to a http request
   let reply (response: HttpListenerResponse) (answer: string) (status: int) (reason: string) =
  -    printfn " --> %d %s [%s]" status reason answer
  +    printfn "REPLY: --> %d | %s | %s" status reason answer
       // Set HTTP statuscode and reason (e.g., 200 OK)
       response.StatusCode <- status
       response.StatusDescription <- reason
  
positive.code:                 failwith "ASSERTION FAILED: Smallest key not found in leaves... WTF!"
          match send_message address Backup state_msg neighbor with
          | None ->
              printfn "PASTRY: No reply for backup: Handle node failure?"
          | Some(resp, status) ->
              printfn "PASTRY: Backed up succesfully!"
  
  // Adds the given node as a neighbor if it makes sense (I'm not using this ATM)
  let try_add_neighbor (node: Node) (guid: GUID) (address: NetworkLocation) : Node =
  
negative.code: let handle_message<'a> (node: Node) (typ: MessageType) (message: string) (key: GUID)
          (route_func: RouteFunc<'a>) (inter: PastryInterface<'a>)
          : Node * 'a * (string * int) =
      printfn "HANDLE: | Handling '%A'" typ
      printfn "HANDLE: | '%s'" message
      match typ with
      | Join -> // A node is requesting to join, and this is the one with the nearest GUID
          let firstsep = message.IndexOf(SEPARATOR)
  