use strict;
use warnings;
use Benchmark qw(:all);

for my $no ( 0 .. 255 )
{	my ( $lt, $eq, $gt );
	if ( $no == 0 )
	{	$lt = chr($no);
		if ( ! ( "" lt $lt ) ) { die "\"\" not lt \\0\n"; }
		if ( "" eq $lt ) { die "\"\" eq \\0\n"; }
		if ( "" gt $lt ) { die "\"\" gt \\0\n"; }
	}
	elsif ( $no == 255 )
	{	$lt = chr($no-1); $eq = chr($no);
		if ( ! ( $lt lt $eq ) ) { die "$no not lt \n"; }
		if ( chr($no) ne $eq ) { die "$no not eq \n"; }
	}
	else
	{	$lt = chr($no-1); $eq = chr($no); $gt = chr($no+1);
		if ( ! ( $lt lt $eq ) ) { die "$no not lt \n"; }
		if ( chr($no) ne $eq ) { die "$no not eq \n"; }
		if ( ! ( $gt gt $eq ) ) { die "$gt not gt \n"; }
	}

}
print "Great!!!\n";
exit;