export const contramap = <A, B, C>(cToA: (c: C) => A) => (
  reader: Reader<A, B>,
): Reader<C, B> => pipe(cToA, reader)