use Test;
BEGIN { plan tests => 150 }
use Inline Config => DIRECTORY => './blib_test';
use Inline Python;

sub even {
    my $n = shift;
    return $n == 0 ? 1 : odd($n-1);
}

for (my $i=0; $i<75; $i++) {
    my $r = $i % 2;
    ok(odd($i), $r);
    ok(even($i), 1 - $r);
}

__END__
__Python__

# Need to explicitly import Perl function
even = perl.even

def odd(n):
    if n == 0: return 0
    return even(n-1)