Mine

bind pub n|n .bh ban:host
proc ban:host { nick host text handle chan} {
 set stext [split $text]
set reason "PErmanently banned"
  newban $stext $handle $reason 0
 }