(define-struct student (first last year)) (define (promote astudent) (make-student (student-first astudent) (student-last astudent) (+ 1 (student-year astudent)) ) )