Code sample while reading and solving SICP