0. #lang racket
1. (define(z l)(cons(if(>(car l)(cdar l))
2.                     (list (car l))(car l))(if(<(car l)(cdar l))(list (z l))(z l))))
3.  (display (z (list 7 3 1 -8 4 8 2 -9 2 8)))

=>

cdar: contract violation

expected: (cons/c pair? any/c)

given: '(7 3 1 -8 4 8 2 -9 2 8)