(begin
(equal? (interval-intersects? '(1 2) '(3 5)) #f)
(equal? (interval-intersects? '(1 4) '(3 5)) #t))