; Here your code !
(define (readn n)  (if (= n 0) '() (cons (read) (readn (- n 1)) ) ))
(define x (read))
(define y (apply + 0 (readn x)))
(define z (read))
(define (main args) (print (- y z)) 0)