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