on $*:TEXT:/^(([!@]calc)|(`))(.*?)/Si:*: {
  inc %calcinc
  set %calcdisplay [ $+ [ %calcinc ] ] $iif($left($1,1) == @ && $nick !isreg $chan, msg $chan, notice $nick)
  set %calc [ $+ [ %calcinc ] ] $iif($remove($1,$left($1,1)) == calc, $remove($2-,$chr(44)), $remove($1-,`,$chr(44)))
  %calcdisplay [ $+ [ %calcinc ] ] $c1([) $c2(Answer) $c1(]) $c1($iif($left($1,1) == `, $remove($1-,`), $2-) = ) $c2($bytes($calc( %calc [ $+ [ %calcinc ] ] ),b))
}