on $*:text:/[!@]calc(ulator)?/Si:#:{   
  var %display = $iif($left($1,1) == @, msg $chan, notice $nick) 9[3CALCULATOR9]10 |   
  if ($2 == $null) { notice $nick 9[3CALCULATOR9]10 ERROR: No Equation Found to Solve | halt } | 
  if ($regex($1-,/\/\s*0/)) { { notice $nick 9[3CALCULATOR9]10 ERROR: Dividing by Zero results in an undefined answer | halt } | 
else {     %display $2- = $calc($replace($2-,k,000,m,00000) $2- )) } } }