export const liftM = (f, m) => {
  const liftM_ = (f, m) => Monad(m) ? dataType(m).fmap(f, m) : error.typeError(m, liftM);
  return partial(liftM_, f, m)
}