The booksum.tcl script allows to make summaries of Tcl code cut from books.
Further details:
Description
Download