Control.Arrow.Extras

(>*>)

(<<^=)

(>>^=)

(=^<<)

(=^>>)