Sicp 1.3.4