Add problem 8 in Racket