ABC005C-scheme

(define limit (read))


(define (read-input-list n)
  (if (= n 0) '() (cons (read) (read-input-list (- n 1)))))


(define takonum (read))
(define takolist (read-input-list takonum))

(define kyakunum (read))
(define kyakulist (read-input-list kyakunum))

(define (answer lista listb limitnum) (cond ((null? listb) "yes")
					    ((null? lista) "no")
				            ((<= 0 (- (car listb) (car lista)) limitnum) (answer (cdr lista) (cdr listb) limitnum))
	       		        	(else (answer (cdr lista) listb limitnum))))

(display (answer takolist kyakulist limit))
(newline)