Add solution to problem 48 in Racket