export const map = <A, B, C>(bToC: (b: B) => C) => (
  reader: Reader<A, B>,
): Reader<A, C> => pipe(reader, bToC)