Reader<R, B> Function(Reader<R, A>) flatMap<R, A, B>( Reader<R, B> Function(A) f, ) => (ra) => (r) => f(ra(r))(r);