alias mrgx return /(\(* *(\d+(?:\.\d+)?|pi|π)((?: *([-+%/*^]) *(?2) *\)*))+)/gi

on $*:TEXT:$($mrgx):*:{
  var -n %e $regsubex($replace($1-,%,% $+ $chr(32),pi,π,π,3.14159),$mrgx,\1:), %i 1
  while ($gettok(%e,%i,58)) {
    var -n %r = %r $+ , $calc($v1)
    inc %i
  }
  msg $iif(#,#,$nick) $deltok(%r,0,44)
}