Welcome to the CHICKEN Scheme pasting service

(define-syntax let-zip
  (syntax-rules ()
    ((let-zip (var var* ...) (val val* ...) body ...)
     (let ((var val)
           (var* val*) ...)
       body ...))))

(let ((outside 1000))
  (let-zip (x y z) (5 10 15)
           (print "x: " x)
           (print "y: " y)
           (print "z: " z)
           (print "outside: " outside)))