right :: Prism (Either r a) (Either r b) a b
right_ :: Traversal (Either r a) (Either r b) a b
right_ = under right