@verb #9611:":_literal" this none this rxdo #7165
@program #9611:":_literal" this none this
{i} = args
if (typeof(i) != $LIST)
  return tostr(i)
elseif (length(i) == 0)
  return {}
elseif (length(i) == 1)
  return tostr("(", this:_literal(i[1]), ")")
elseif (length(i) > 2 || typeof(i[2]) != $LIST)
  return tostr("(", this:_literal(i[1]), " . ", this:_literal(i[2]), ")")
else
  s = "("
  while (i)
    s = tostr(s, this:_literal(i[1]), i[2] ? " " | ")")
    i = i[2]
  endwhile
  return s
endif
"Last modified by Dax (#789) on Wed May  4 06:46:05 2005 MDT."
.