the dude

On *:INPUT:[gm]*:#: 
  var %gmvar = $2
  Using $comchan($me,0)
  and while (%gmvar <= $comchan($me,0) {
  and while (%gmvar <= $comchan($me,0)) {
  mode $comchan($me,%gmvar) +mode
  inc %gmvar
 }
}