on *:TEXT:!calc *:#:{ /notice $nick 2 [CALC]: $2- 4 = $comma($calc($2-)  $Wordz($calc($2-)) ) } 
alias comma { 
  var %a, %b = $regsub($ticks,$$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a) 
  return %a 
}