my $n = new Digest::Nilsimsa;
print $n->testxs('iamchad') eq 'amchad' ? "" : "not ", "ok 2\n";