alias serv_test { sockclose serv_test | socklisten -p serv_test $iif($1,$1,8000) }
on *:sockread:client_test?*:{
sockread $sock($sockname).rq &serv_test
if ($bvar(&serv_test,0)) echo -a $v1 bytes $bvar(&serv_test,1-4000).text
}
on *:socklisten:serv_test:sockaccept client_test $+ $calc($sock(client_test*,0) +1)
alias client_test { sockclose client_test | sockopen client_test 127.0.0.1 $iif($1,$1,8000) }