ЗП
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)))