alias money {
tokenize 46 $round($1,2)
var %x 1, %y $len($1), %z $2
while (%x <= %y) {
if ($calc(%x % 3) == 0) { var %return $+($right($1,3),$chr(39),%return) | tokenize 32 $left($1,-3) }
inc %x
}
if ($1) var %return $+($1,$chr(39),%return)
return $chr(36) $+ $iif($right(%return,-1) == $chr(39),$left(%return,1),$left(%return,-1)) $+ $iif(%z,. $+ $v1)
}