proc showList { a } {

    foreach e $a {
	regexp {(.*)(\(cells.*)} $e 1 2 3
	putsLog [ format "%-5s %-50s"  " "  $2 ]
#	putsLog [ format "%-10s %-50s" " "  $3 ]
	lappend returnList                 $2
    }

    return $returnList   
}