use NAT::NATDict;

my $dic = shift;

my $D = NAT::NATDict->open($dic);

print $D->languages();
