(define (readn n) (if (= n 0) '() (cons (read) (readn (- n 1)) ) )) (define x (read)) (define y (apply + 0 (readn x)) (define z (read)) (print (- z y))