Scheme: Change list in place : scheme/impromtu