Add solution to problem 30 in Racket