Stuff

alias comma {
  tokenize 46 $1-
  var %g 1,%y
  while %g <= $len($1) {
    %y = $iif(3 // %g,$iif(%g != $len($1),$chr(44)) $+ $left($right($1,%g),1),$left($right($1,%g),1)) $+ %y
    inc %g
  }
  return %y $+ $iif($2,. $+ $2-)
}
alias calc2 { return $comma($calc($regsubex($regsubex($remove($regsubex($1-,/(\*|\/|\+|\-|\050|\051)/g,$chr(225) \1 $chr(225)),$chr(225)),/(\d+?(?:\.\d+?)?)(k|m)/gi,$iif(\2 = k,$calc(\1 *1000),$calc(\1 *1000000))),/(pi|(sin|cos|tan) \050 (\d+?) \051)/gi,$iif(\1 = pi,$pi,$iif(\2 = cos,$cos(\3),$iif(\2 = sin,$sin(\3),$tan(\3))))))) }