:- sort
([(3,1),(4,1),(2,3),(3,3),(2,2),(1,4),(1,1),(4,3),(1,3),(3,4)],L
),write(L
).
Oi0gc29ydChbKDMsMSksKDQsMSksKDIsMyksKDMsMyksKDIsMiksKDEsNCksKDEsMSksKDQsMyksKDEsMyksKDMsNCldLEwpLHdyaXRlKEwpLg==
[ (1, 1), (1, 3), (1, 4), (2, 2), (2, 3), (3, 1), (3, 3), (3, 4), (4, 1), (4, 3)]