solve 03 by racket