(<.|.>)  :: Alternative f => f a -> f b -> f (Either a b)
x <.|.> y = Left <$> x <|> Right <$> y
(<.|.>)  :: Alternative f => f a -> f b -> f (Either a b)
x <.|.> y = Left <$> x <|> Right <$> y
x <.|.> y = Left <$> x <|> Right <$> y