use strict;
use Text::Levenshtein::XS qw/distance/;
use utf8;
print "\n------------------------------------------------\n";
print "small strings\n";
timethis(1000000, 'distance("four","fuoru");');
print "------------------------------------------------\n";
print "medium strings\n";
timethis(1000000, 'distance("four" x 1000,"fuoru" x 1000);');
print "------------------------------------------------\n";
print "large strings\n";
timethis(1000000, 'distance("four" x 100000,"fuoru" x 100000);');
print "------------------------------------------------\n";