(sort *data* #'(lambda (x y)
(if (= (car x) (car y))
(< (cadr x) (cadr y))
(< (car x) (car y)))))