add racket solution to q040