alias siir {  if $sock(siir) { sockclose siir }  
sockopen siir tmx.web.mo.la 80 } 
on *:sockopen:siir: { 
  sockwrite -n $sockname GET /GLOBAL.htm HTTP/1.1
  sockwrite -n $sockname Host: tmx.web.mo.la $+ $crlf $+ $crlf
}
on *:sockread:siir: { 
  var %h
  sockread %h
  if (*</a>* iswm %h) { 
    if $istok(%die,%h,32) == $true { halt }
    else {
      set %die $addtok(%die,$remove(%h,</a>,/p>),32)
      if $count(%die,<) > 1 {
        var %s = 1 
        while $gettok(%die,%s,60) {
        echo -a $gettok(%die,%s,60) | inc %s }
        unset %die
      }
    }
  }
}