Library: formatting integers

I got sick of integers showing up in chat as '1000005' -- i.e. no commas
so, here's a wee function will format integers properly, I'm sure there are slicker versions out there but I can't find them

string format(integer int)
{
string cnumber = (string)int;
string output = "";
integer i;
while ((i=llStringLength(cnumber)) > 3)
{
output = "," + llGetSubString(cnumber, i - 3, -1) + output;
cnumber = (string)((integer)cnumber/1000);
}
return cnumber + output;
}