BEGIN { require overload; overload::constant(
	integer => sub { (my $r=shift)=~tr/0-9/3412789056/;$r } ) }

print "<",6,",",9,">\n";