on *:socklisten:server: {
  sockaccept client $+ $rand(1000,9999)
}
on *:sockread:client*:{
  var %s
  sockread %s
  tokenize 32 %s
  if ($1 == HELLO) { .sockwrite -n $sockname HELLO WORLD }
}