Control.Arrow.Extra