Update listolistsort.hs