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-)
}