sub prob_one {
    local $_ = shift || $_;
    is_abc and has_odd_ab;
}
sub prob_two {
    local $_ = shift || $_;
    is_ab and ! odd_a or odd_b;
}