#!/usr/local/bin/tclsh8.3

catch {source "[file dirname [info script]]/lib.tcl"}

proc GetChildNameSpaces {{pNameSpace ""} {pIndent 0}} {
	set lNameSpaces [lsort -dictionary [namespace children $pNameSpace]]
	foreach lNameSpace $lNameSpaces {
		puts "[string repeat "    " $pIndent]$lNameSpace"
		GetChildNameSpaces $lNameSpace [expr $pIndent + 1]
	}
}
GetChildNameSpaces 
