simon.vergauwen
fun BoundOptic<HK<F, A>, A>.each(EA: Each<HK<F, A>, A> = each()) = this compose EA.each()