SICP ~p14