@verb #6161:"group_number" this none this rxdo #6397
@program #6161:"group_number" this none this
"Copied from #29 (string utilities):group_number by James (#6397)"
n = floatstr(args[1], 0)
comma = length(args) > 1 ? args[2] | ","
result = ""
while ((len = length(n)) > 3)
  result = comma + n[len - 2..len] + result
  n = n[1..len - 3]
endwhile
return "$" + result
"Last modified by James (#6397) on Sat Jun 27 23:24:39 1998 EDT."
.