Data.Bifunctor.Apply