Someone

(define (discount-store(lambda (l p) (
     (cond 
        ((empty? l) true) 
             ((< (car l) p) (discount-store (cdr l) p)) 
               (true false)))))