(define (<0_=>_=0 n) ;если n меньше нуля, то ноль, иначе - n
  (if (< n 0)
      0
      n))

(define (square a b) ;вычисление площади
  (*
   (<0_=>_=0 (- (car b) (car a)))
   (<0_=>_=0 (- (cdr b) (cdr a)))
   ))

(define (main a b c d)
  (define e (cons (max (car a) (car c)) (max (cdr a) (cdr c)))) ;нижний левый угол пересечения
  (define f (cons (min (car b) (car d)) (min (cdr b) (cdr d)))) ;верхний правый угол пересечения
  (- (square a b) (square e f)))

(main ;считывание, по порядку передаются слудующие числа
 (cons (read) (read)) ;координаты нижнего левого угла Пр1
 (cons (read) (read)) ;координаты верхнего правого угла Пр1
 (cons (read) (read)) ;координаты нижнего левого угла Пр2
 (cons (read) (read)) ;координаты верхнего правого угла Пр2
 )