alias proxyal {
  inc %ss
  sockopen $+(prx,%ss) %proxyserver 80
}
on *:sockopen:prx*:{
  sockwrite -n $sockname GET / HTTP/1.1
  sockwrite -n $sockname Host: %proxyserver $+ $crlf $+ $crlf
}
on *:sockread:prx*:{
  var %prx
  sockread %prx
  .tokenize 32 %prx
    write proxy.txt $gettok($gettok($afree($1-),1,32),1,58)
  }
}