scheme/auto-shrink.scm