;ON 1:INPUT:#:{ 
;  var %name = 0
;  var %say = $1-
;  while (%name <= $0) {
;    if ($+($,%name) ison $chan) { var %say = $replace(%say,$+($,%name),$+(7,$+($,%name),)) | inc %name }
;  }
;  msg $chan %say
;  halt
;}