Ferdi

alias isword {
  if ($sock(isword)) sockclose isword
  set %word $1-
  sockopen isword www.zybez.net 80
}
On *:sockopen:isword: {
  sockwrite -nt $sockname GET /?w= $+ %word $+ &ls=a HTTP/1.1
  sockwrite -nt $sockname Host: www.onelook.com
  sockwrite -nt $sockname $crlf
}
On *:sockread:isword: {
  if ($sockerr) {
    echo -a Socket Error: $sockname $+ . Error code: $sockerr
    halt
  }
  else {
    var %read
    sockread %read
    if (*<!--We found--><td class='tablebottom'>* iswm %read) set %return 1
    echo -a %word $+ : %return
    else {
      set %return 0
      echo -a %word $+ : %return
      sockclose $sockname
      unsetall
    }
  }
}
alias -l htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&amp;) | return %x }