switch to srfi/2 and-let*