ON $*:TEXT:/^[!@.]calc/Si:#:{ 
  var %x $replacex($2-,k,000,m,000000,g,000,b,000000000,t,000000000000) 
msg $chan $+(.:1!12,$nick,1!31:.12 The answer is) $bytes($calc(%x),bd) }