let to_list ~keep_default set = fold (fun n l -> if (n = Sid.default) && not keep_default then l else n::l) set []