# just look at the last digit, silly!
$two->set_divisibility_test( sub {shift =~ /[02468]$/} );
ok( 
    $two->divides($long_string_of_twos),
    "Two divides $long_string_of_twos, as any fool can see.",
);