alias google {
  sockopen google www.google.com 80
  sockmark google echo -ta ¤ $1-
}
on *:sockopen:google:{
  sockwrite -tn google GET /search?hl=en&q= $+ $gettok($sock($sockname).mark,2,164) $+ &btnG=Search HTTP/1.0
  sockwrite -tn google Host: www.google.com
  sockwrite -tn google Accept-Language: nl,en-us;q=0.7,en;q=0.3
  sockwrite -tn google Accept-Encoding: gzip,deflate
  sockwrite -tn google Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  sockwrite -tn google Keep-alive: 300
  sockwrite -tn google Connection: keep-alive
  sockwrite -tn google Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5
  sockwrite -tn google $crlf
}
on *:sockread:google:{
  if ($sockerr) $gettok($sock($sockname).mark,1,164) Socket error in Google socket.
  else { 
    while ($sock(google).rq) {
      sockread &anal
      bwrite gay -1 -1 &anal
    }
    bread gay 0 $file(gay).size &sex 
    if ($bfind(&sex,$calc($file(gay).size - 50),</HTML>)) { 
      run notepad.exe gay
      sockclose google
    }
  }
}
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x }