ЗП
Size: a a a
ЗП
ЗП
ЗП
ЗП
>>=
как на примере с Endo
для списка (оптимизация`:`)ЗП
hoistCodensity
ЗП
hoistCodensity :: forall f g. (f ~> g) -> (g ~> f) -> Codensity f ~> Codensity g
hoistCodensity f g (Codensity m) = Codensity (\k -> f (m (g <<< k)))