yes = foo $ Control.Arrow.second ((+) y)