on $*:text:/^[=](-[0-9]|[0-9]) */Si:#: { 
var %calc = $remove($1,=)
/notice $nick  %calc = $comma($calc($replace(%calculate,k,*1000,m,*1000000)))
}
alias -l comma {
  var %a, %b = $regsub($ticks,$$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a)
  return %a
}