let group xs ~f = group_aux xs f ( = )