anchor.diff:  | Valid of Node
   | Invalid of string * int * string
   
  +type Destination =
  +| Ok of GUID
  +| Error of string * int * string
  +
  +// A function for the resource request func to send requests through
  +// partial_resource_url, method, data -> response
  +type SendFunc = string -> string -> string -> HttpListenerResponse
  +
  +// A function to handle resource requests
  +// context (for replying to this call!), split_path (without /resources), send_func, state -> state
  +type ResourceRequestFunc<'a> = HttpListenerContext -> string list -> SendFunc -> 'a -> 'a
  +
   //type DeliverFunc = string -> GUID -> unit
   //type ForwardFunc = string -> GUID -> GUID -> string * GUID
   //type NewLeafFunc = GUID list -> unit
  
positive.code:     {a = a; b = b}
  
  // Makes the given pastry node start listening...
  let start_listening (node: Node) =
      printfn "Initializing..."
      use listener = new System.Net.HttpListener ()
      let basepath = sprintf "http://%s/" node.address
  
negative.code:         let address = sprintf "%s:%s" (if addr = "" then get_public_ip() else addr) port
          printfn "? Joining pastry network at '%s'..." address
          let known_peer = if peer = "" then None else Some(peer)
  
          // Yay!
          let dummy_handler context path_args sendfunc state =
              printfn "REPOSITORY: Dummy handler is handling '%A'" path_args
              state
  
          let node = join_network address known_peer dummy_handler 0
          ()
          // Start listening...
      | _ ->
  