@verb #80:"calc_content_length" this none this rxdo #55
@program #80:"calc_content_length" this none this
{entity} = args
if (typeof(entity) == $STR)
  return length(entity)
elseif (typeof(entity) == $LIST)
  size = 0
  for x in (entity)
    size = size + length(x) + 2
  endfor
  return size - 2
else
  raise(E_TYPE)
endif
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:05 2002 MDT)."
"Last modified by Dax (#789) on Tue May  3 13:45:02 2005 MDT."
.