on *:input:*: {
  if ($regex($1-,/^[!@]calc (.*)/Si)) {
    haltdef
    echo -ta [Calc] $2- = $bytes($replace($2-,k,*1000,m,*1000000,b,*1000000000),db)
  }
}