use util;
use strict; 

my $count = 0;
for (my $n = 1; $n < 10000; ++$n) {
	if (is_lychrel($n)) {
		++$count;
	}
}
print "LYCHREL($count)\n";


sub is_lychrel
{
	my $n = shift;
	my $limit = 0;
	
	while ($limit++ < 50) {
		$n = $n + util::reverse_number($n);
		if (util::is_palindromic($n)) {
			return undef;
		}
	}
	
	return 1;
}