on $*:TEXT:/^[!@.]calc(ulator)?/Si:#:{ 
  if ($2- isalpha $chan) { notice $nick Improper format. Proper syntax: !Calc Equation | halt }
  else {
    $iif($left($1-,1) == @, msg $chan, notice $nick) Calculator: $2- = $bytes($calc($regsubex($replace($2-,$chr(44),,x,*,pi,$pi),/(\d+(?:\.\d+)?)([kmb])/gi,( \1 $replace(\2,b,*1000m,m,*1000k,k,*1000) ))),db)
  }
}