Update exercise-39.rkt