let minBy predicate l =
  match l with
  | [] -> []
  | h :: t -> List.fold_left t ~init:h ~f:(fun a e ->
      if predicate e < predicate a then e else a)