PLF_LAB01

;ex1
(define (even-nb-divisible-by-7 n)
  (or (even? n) (= (remainder n 7) 0)))

;ex2
(define (longer-listp lst1 lst2)
  (> (length lst1) (length lst2)))

;ex3
(cadar(cddar(cdr '(A (L K (P O)) I))))
(cdar(cddar(cdr '(A (L K (P O)) I))))

(cadar(cdadar '((A ( ( L K) (P O) ) I ))))
(cdar (cadr ' (A ( ( L K) (P O) ) I )))

(caaddr '(A (B C . D) (HELLO TODAY) I AM HERE))
(car (cddddr '(A (B C . D) (HELLO TODAY) I AM HERE)))