Update a9-6.rkt