gistfile1.reb

echo-protocol: make root-protocol [
      port-flags: system/standard/port-flags/pass-thru
      sys-copy: get in system/words 'copy
      copy: func [ port /local reponse ] [
            t1: now/time/precise
            reponse: sys-copy ""
            insert port/sub-port "hello"
            read-io port/sub-port reponse 5
            (now/time/precise - t1)
      ]
      net-utils/net-install echo self 7
]