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)))

=>

eval:3:0: unquote: not in quasiquote

in: (unquote 3)