flatMap<R, A, B>  function 
 
Composes computations in sequence, using the return value from the previous computation.
Implementation
Reader<R, B> Function(Reader<R, A>) flatMap<R, A, B>(
  Reader<R, B> Function(A a) f,
) =>
    (fa) => Reader((r) => f(fa(r))(r));