alias autopm { 
  var %x = 1
  while (%x <= $nick(#,0)) {
    msg $nick(#,%x) $1-
    inc %x
  }
}