;; normal scheme way
(let ((x "one\n"))
  (display x)
  (set! x "omg\n")
  (let-values (((first second . rest)
                (list "first" "second" "third" "fourth")))
    (let ((x "two\n"))
      (display x))
    (display x)))

;; ugly let* trick
(let*-values
    (((x) "one")
     (_ (display x))
     ((x) "omg\n")
     ((first second . rest)
      (list "first" "second" "third" "fourth"))
     (_ (let ((x "two\n"))
          (display x))))
  (display x))