let new_l = List.sort compare  !perm