function s = DigitGroup(n)
  nLength = ceil(log(n)/log(10));
  
  if nLength <= 3
    s = sprintf('%d', n);
  else
    s = [DigitGroup(floor(n/1000)) ',' sprintf('%d',mod(n,1000))];
  end
end