on $*:text:/^[!@]calc ./iS:#:{ 
  $iif(@* iswm $1,msg #,.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) 
}