Add SICP account example with set!