1b2
@verb #4457:"name_list" this none this rxdo #4457
@program #4457:"name_list" this none this
meh = " "
{bah} = args
for x in (bah)
  if (length(bah) == 1)
    meh = x:title()
  elseif (x == bah[$])
    meh = meh[1..$ - 1] + tostr(" and ", x:title())
  else
    meh = meh + tostr(x:title(), ", ")
  endif
endfor
return meh[1] == " " ? meh[2..$] | meh
"Last modified by Rubbie (#4457) on Sat Aug 12 02:33:50 2000 MDT."
.

0