Pig Latin converter

alias piglatin {
  msg $chan $convert_pig_latin($1-)
}
alias convert_pig_latin {
  tokenize 32 $1
  var %x = 1,%z
  while (%x <= $0) {
    var %z = $addtok(%z,$+($right($($+($,%x),2),-1),$left($($+($,%x),2),1),ay,$chr(32)),32)
    inc %x
  }
  return %z
}