(define (fab-date calendrier jour mois annee)
   (list calendrier jour mois annee))

(define (annee la-date)
   (cadddr la-date))

(define (mois la-date)
   (caddr la-date))

(define (jour la-date)
   (cadr la-date))

(define (calendrier la-date)
   (car la-date))