on *:TEXT:!med*:#: {
  set %m1 $remove($gettok($2,1,44),$chr(40))
  set %m2 $remove($gettok($2,2,44),$chr(41))
  set %nm $remove($numtok($2,44),$chr(40),$chr(40))

  %median = $calc(( %m1 + %m2 )/ %nm )

  /msg $chan The median of $2 is: %median  
}