dict_flatten

proc dict_flatten {dictVal} {
    dict for {k v} $dictVal {
        if {[llength $v] % 2 == 0} {
            set dictVal [dict remove $dictVal[set dictVal {}] $k]
            dict for {sk sv} [dict_flatten $v] {
                dict set dictVal ${k}.${sk} $sv
            }
        }
    }
    return $dictVal
}