@verb #1:"rank" this none this rxd #60
@program #1:"rank" this none this
":rank([long]); => Rank"
"Returns the rank of this."
"If args[1] is given, returns a string args[1] letters long, otherwise returns the full string."
{?length = -1, ?names = {1, 1, "???"}} = args
if (length == -1)
  return names[$]
elseif (length > length(names))
  name = names[$]
else
  name = names[pos = length]
  while (typeof(name) != STR)
    name = names[pos = pos + name]
  endwhile
endif
return $string_utils:left(name, length)
"Last modified by Lao-Tzu (#8084) on Thu Aug  8 10:19:44 2002 MDT."
.