<pre>on printHandlersOf theObject  get listHandlers(theObject)  put line 1 to 4 of it into header  put line 5 to (the number of lines in it) of it into Txt  printReport Txt,header,"Letter"end printHandlersOf</pre>