Update Exercise13.rkt