Added SICP exercise 1.21