Got sicp ch 3 working in racket.