let group_by xs ~eq = group_aux xs ident eq