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
}