added example in Racket language