Update a9-1.rkt