(********* Exercice 1 *********) (********* Exercice 2 *********) (********* Exercice 3 *********) (********* Exercice 4 *********) (********* Exercice 5 *********) (********* Exercice 6 *********) (********* Exercice 7 *********) (********* Exercice 8 *********) (********* Exercice 9 *********) (define db (file->list "path to higher.txt")) (struct person (name birth death)) (person "Celestin" 1666 1794) ;; -> # / Constructor of a person (define duck (person "Celestin" 1666 1794)) (person-name duck) ;; -> "Celestin" / Name accessor (person-birth duck) ;; -> 1666 / Birth year accessor (person-death duck) ;; -> 1794 / Death year accessor