Added SICP exercise 2.22