export const foldMap = (f, a) => {
  const foldMap_ = (f, a) => Monoid(a) ? $(mconcat)(fmap(f))(a) : error.typeError(a, foldMap);
  return partial(foldMap_, f, a);
 }