All Names

alias allnames {
  var %names , %i = 1 
  while (%i <= $chan(0)) {
    %names = $+(%names,$chr(44),$chan(%i)) 
    inc %i 
  } 
  .raw names $right(%names,-1)
}