#!/bin/rc
cd /net/tcp
<>[3]clone {
	id=`{read <[0=3]}
	echo announce 7002 >[1=3]
	<>[4]$id/listen {
		id=`{read <[0=4]}
		<>[5]$id/data {
			cat <[0=5]&
			cat >[1=5]
		}
	}
}