ReaderIO<ENV, B> Function<A>(ReaderIO<ENV, A>) apSecond<ENV, B>( ReaderIO<ENV, B> rio1, ) => <A>(rio2) => flatMap( (_) => rio1, )(rio2);