export const findIndex = (p, xs) => {
  const findIndex_ = (p, xs) =>
    isList(xs) ? $(listToMaybe)(findIndices(p))(xs) : error.listError(xs, findIndex);
  return partial(findIndex_, p, xs);
}