REVC (prob 3) in Racket