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