anchor.diff:      }
       match peer with
       | None ->
  -        node
  +        start_listening node
       | Some(peer) ->
           match send_message peer guid Join address with
  -        | None -> failwith (sprintf "Could not establish a connection with peer at '%s'" peer)
  +        | None ->
  +            failwith (sprintf "Could not establish a connection with peer at '%s'" peer)
           | Some(_) ->
  -            node
  -
  -let send (node: Node) (msg: string) (address: Address) =
  -    0
  -
  -let forward (node: Node) (msg: string) (dst: GUID) =
  -    0
  +            start_listening node
   
   // Adapted from https://stackoverflow.com/questions/1069103/how-to-get-my-own-ip-address-in-c
   let get_public_ip () =
  
positive.code:     //listen()
      //join_network "localhost:8080" None
      //join_network "localhost:80" (Some("localhost:8080"))
      printfn "Public IP-address: %s" (get_public_ip())
      match args with
      | [|port; address|] ->
          ignore () //(start_server workflow (int port))
      | _ ->
          printfn "Usage: Event.exe <workflow> <port>"
      0
      0
negative.code: let split (str: string) (c: char) =
      List.ofArray (str.Split([|c|]))
  
  // Sends a pastry message somewhere
  let send_message (address: NetworkLocation) (destination: U128) (typ: MessageType) (data: string) =
      try
          let cmd =
  