Update ordenar.hs