my $dir = Path::Class::Dir->new( "$Bin/..", "root", "locale" );
my $lang = TopTable::Maketext->new(directories => $dir);