(defun z(l e)(labels((i(n m)(/(-(cadr m)(cadr n))(-(car n)(car m))))(m(a)(match a((list* a b c r)(if(<(i a b)(i b c))(list* a(m(list* b c r)))(m(list* a c r))))(_ a)))(c(&rest z)(destructuring-bind ((a b)(c d))z(or(< a c)(and(= a c)(< b d))))))(mapcar(eval`(lambda(x)(cond,@(loop for(a b)on(m(remove-duplicates(sort l #'c):key #'car)) by #'cdr collect`(,(if b`(< x,(inter a b))'t)(+(*,(car a)x),(cadr a)))))))e)))
 
(z '((2 8) (4 0) (2 1) (1 10) (3 3) (0 4)) '(1 2 3 4 5))

KGRlZnVuIHoobCBlKShsYWJlbHMoKGkobiBtKSgvKC0oY2FkciBtKShjYWRyIG4pKSgtKGNhciBuKShjYXIgbSkpKSkobShhKShtYXRjaCBhKChsaXN0KiBhIGIgYyByKShpZig8KGkgYSBiKShpIGIgYykpKGxpc3QqIGEobShsaXN0KiBiIGMgcikpKShtKGxpc3QqIGEgYyByKSkpKShfIGEpKSkoYygmcmVzdCB6KShkZXN0cnVjdHVyaW5nLWJpbmQgKChhIGIpKGMgZCkpeihvcig8IGEgYykoYW5kKD0gYSBjKSg8IGIgZCkpKSkpKShtYXBjYXIoZXZhbGAobGFtYmRhKHgpKGNvbmQsQChsb29wIGZvcihhIGIpb24obShyZW1vdmUtZHVwbGljYXRlcyhzb3J0IGwgIydjKTprZXkgIydjYXIpKSBieSAjJ2NkciBjb2xsZWN0YCgsKGlmIGJgKDwgeCwoaW50ZXIgYSBiKSkndCkoKygqLChjYXIgYSl4KSwoY2FkciBhKSkpKSkpKWUpKSkKCih6ICcoKDIgOCkgKDQgMCkgKDIgMSkgKDEgMTApICgzIDMpICgwIDQpKSAnKDEgMiAzIDQgNSkp