alias numsep {
if ($len($1) == 4) return $+($mid($1,1,1),$chr(44),$mid($1,2,3))
if ($len($1) == 5) return $+($mid($1,1,2),$chr(44),$mid($1,3,3))
if ($len($1) == 6) return $+($mid($1,1,3),$chr(44),$mid($1,4,3))
if ($len($1) == 7) return $+($mid($1,1,1),$chr(44),$mid($1,2,3),$chr(44),$mid($1,5,3))
if ($len($1) == 8) return $+($mid($1,1,2),$chr(44),$mid($1,3,3),$chr(44),$mid($1,6,3))
if ($len($1) == 9) return $+($mid($1,1,3),$chr(44),$mid($1,4,3),$chr(44),$mid($1,7,3))
if ($len($1) == 10) return $+($mid($1,1,1),$chr(44),$mid($1,2,3),$chr(44),$mid($1,5,3),$chr(44),$mid($1,8,3))
return $1
}