RAW 378:*:{
  set %whois on
  dns $6 
  echo -ai10 $ts($active) $design $even realhost $even $space 13: $even $6 $+($in5,%whois.ip,$out5)
  set %whois off
  halt
}
alias dns { .dns $1 }
on *:DNS:{ 
  haltdef 
  if (%whois == on) {
    var %n = $dns(0)
    if (%n != 0) {
      set %whois.ip $dns(%n).ip
    }
    if (%n == 0) {
      set %whois.ip unable to resolve any addresses
    }
  }
  else {
    var %n = $dns(0) 
    var %y $dns(0)
    echo -ai10 $ts($target) $design $even $+($in5,4DNS,10,$in3,,$dns(%n).addr,10,$out3,$out5 attempting to resolve ...) 
    if (%n == 1) { 
      echo -ai10 $ts($target) $design $even $+($in5,4DNS,10,$in3,,$dns(%n).addr,10,$out3,$out5 resolved13 %y address) 
    }
    if (%n != 0 && %n != 1) { 
      echo -ai10 $ts($target) $design $even $+($in5,4DNS,10,$in3,,$dns(%n).addr,10,$out3,$out5 resolved13 %y addresses) 
    }
    if (%n == 0) { 
      echo -ai10 $ts($target) $design $even $+($in5,4DNS,10,$in3,,$dns(%n).addr,10,$out3,$out5 unable to resolve any addresses) 
      halt 
    } 
    while (%n > 1) { 
      echo -ai10 $ts($target) $design $even $+($in5,4DNS,10,$in3,,$dns(%n).addr,10,$out3,$out5,11 $dns(%n).ip)
      dec %n 
    }
    if (%n <= 1) {
      echo -ai10 $ts($target) $design $even $+($in5,4DNS,10,$in3,,$dns(%n).addr,10,$out3,$out5,11 $dns(%n).ip)
      dec %n 
    }
    echo -ai10 $ts($target) $design $even $+($in5,4DNS,10,$in3,,$dns(%n).addr,10,$out3,$out5 end of DNS)
    unset %dns
  }
}