-- !!! Test that List.sortBy is stable.

import Data.List

main = print (sortBy (\(a,b) (a',b')->compare a a')
		([1,1,1,1,1,1,1,1,1,1]`zip`[1..10]))