sub odd_a {
    local $_ = shift || $_;
    1 & tr/a//;
}
sub odd_b {
    local $_ = shift || $_;
    1 & tr/b//;
}