1e2
@verb #1492:"stack" this none none rxd #60
@program #1492:"stack" this none none
"stack slate"
"  show a summary of the gopher stack"
max = 0
if (!this.stack)
  return player:tell($string_utils:pronoun_sub("%T is at the top level."))
endif
for x in (this.stack)
  max = max(max, length(x[1]))
endfor
max = max + 6
for x in ($list_utils:reverse(this.stack))
  summary = $gopher:summary(x)
  player:tell($string_utils:left(summary[1], max), " ", summary[2])
endfor
.

0