even_selector = Select[EvenQ]
incrementor = Map[Inc]
decrementor = Map[Dec]
even_incremented_selector = incrementor * even_selector (????)
odd_selector = even_incremented_selector * decrementor
even_selector[{1,2,3,4,5,6,7}] => {2,4,6}
even_incremented_selector[{1,2,3,4,5,6,7}] => {2,4,6,8}
odd_selector[{1,2,3,4,5,6,7}] => {1,3,5,7}
However I'm not entirely sure I've understood things correctly, I just stared at it for a while and need to get back to work...
(edit: HN does _not_ like formatting)