set sep [string repeat - 30]
puts stdout $sep
puts stdout "tcl::tm::list"
puts stdout $sep
puts stdout [join [tcl::tm::list] \n]

puts stdout $sep
puts stdout "auto_path"
puts stdout $sep
puts stdout [join $::auto_path \n]
puts stdout $sep

puts stdout "package names"
set packages [lsort [package names]]
puts stdout $sep
puts stdout [join $packages \n]
puts stdout $sep
puts stdout "[llength $packages] packages"