~sicp p40