SICP/chapter_4: 24.rkt, optimize compile-variable