# Stripped out naco_normalize from FTS.pm 

use OpenILS::
my $stuff = 'éèàôöç';

sub naco_normalize {
  # body of subroutine copied here
}

print Unicode::Normalize::compose(NFD($stuff));
print "\n";
print naco_normalize($stuff);
print "\n";
print Unicode::Normalize::compose(naco_normalize($stuff));
print "\n";
print Unicode::Normalize::compose(Unicode::Normalize::reorder(naco_normalize($stuff)));
print "\n";

dan@denials:~/source/NACO$ perl naco.pl 
éèàôöç
A A�A A�A�A�
A A�A A�A�A�
A A�A A�A�A�