SICP's Chapter 4 Scheme embedded in Scheme