@verb #4655:"description look_self" this none this rxd #2633
@program #4655:"description look_self" this none this
desc = this.description
desc = typeof(desc) == $LIST ? desc | {desc}
name = this:title()
cont = this:contents()
for c in [1..length(cont)]
  cont[c] = " " + cont[c]:title()
endfor
desc = {name, @desc, "Contents:", @cont}
player:tell(desc)
"Last modified by Dax (#789) on Tue May  3 13:55:56 2005 MDT."
.