let rec all_arrangements_arity s l = all_arrangements (arity s) l