on *:OPEN:?:*: {
  var %x 0
  var %y $comchan($nick,0)
  while (%x < %y) {
    inc %x
    var %a %a $+ $chr(32) $+ $comchan($nick,%x)
  }
  echo -a $nick $+ ( $+ $address($nick,5) $+ ). $+ ( $1- )
  echo $nick Query from $nick $+ . Full address: $address($nick,5) $+ . Common channels: %a $+ .
}