exercise 1.3 from SICP in scheme