Add prob 9 in Racket