Welcome to the CHICKEN Scheme pasting service

(define-syntax let-zip
  (syntax-rules ()
    ((_ symbols values body ...)
     `(let (,@(zip symbols values))
        body ...))))

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

(define-syntax FFF
  (syntax-rules ()
    ((FFF (?var0 ...) (?val0 ...) ?body ...)
      (let ((?var0 ?val0) ...) ?body ...) ) ) )

#;2> (FFF (a b) (1 2) (list a b))
(1 2)
#;3> ,x* (FFF (a b) (1 2) (list a b))
(##core#let ((a 1) (b 2)) (list a b))