alias trans { 
  sockclose t 
  set %trans_w $$1 
  set %trans_f milon.morfix.co.il 
  sockopen t %trans_f 80 
} 
on *:sockopen:t:{ 
  if !$sockerr { 
    var %s sockwrite -tn t 
    %s GET /default.aspx?q= $+ %trans_w HTTP/1.1 
    %s Host: %trans_f 
    %s 
  } 
} 
on *:sockread:t:{    
  var %tr_r | sockread %tr_r 
  if (Word or phrase not found isin %tr_r) { echo -a No match | trans_c  } 
  if (onclick="SubmitSuggest isin %tr_r) { noop $regex(%tr_r,/\('(.*?)'\)/g) | var %su 1 | while ($regml(%su)) { set %trans_s $addtok(%trans_s, $v1 ,44) | inc %su } } 
  if ("spnTrans isin %tr_r) echo -a $+(,%trans_w,) - $iif($regex(%trans_w,[א-ת]),$m(%tr_r),$m(%tr_r,1)) 
  if (id=merlin_q isin %tr_r) { $iif(%trans_s,echo -a Word not found. Suggestions: $v1) | trans_c } 
} 
alias m { 
  var %2 $iif($2,(?!\W)[^א-ת],(?![\s\,\(\)])[^\w]) 
  return $regsubex($1,$+(/[^<]*>|<[^>]*>|<.*|&\S+?;|,$chr(9),|חפש במורפיקס|,%2,/g),) 
} 
alias trans_c { unset %trans_* | sockclose t } 
alias tr_nick return $regsubex($1,/[ $prefix ]|\W$/gx,)