Control.Arrow.ArrowP

data ArrowP a p b c