SICP/chapter_4: 31.rkt, call-by-reference support