add(sicp): add 4.37