1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16



procedure Put_To_With_Commas (
              alters Character_OStream& output
          );
{
	object Integer f;
	output.Open_External("");


	self.Multiply_By_Radix(f);
	output << f;
	if (self.Discrete_Log mod 3 == 0 and self.Discrete_Log > 3)
		output << ",";
	self.Put_To_With_Commas (output);

	output.Close_External("");
}