alias primetest {
  inc %prime
  sockopen primetest $+ %prime primes.utm.edu 80
}
on *:sockopen:primetest*: {
  sockwrite -nt $sockname GET http://primes.utm.edu/lists/small/1000.txt 
}
on *:sockread:primetest*: {
  var %primes
  sockread %primes
  echo -a %primes
}