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