Code in The Little Schemer ,using racket(DrRacket)