Unicode glob decomposition

package require unicode
set map [list ä ae ü ue ß ss ö oe]
set msg "Grüße aus Deutschland."
puts "$msg >> [string map $map $msg]"

foreach file [glob testde*] {
    set file [unicode::tostring [unicode::normalize C [unicode::fromstring $file]]]
    puts "$file >> [string map $map $file]"
}