(let ((a 3)
      (b 5))
  (let ((c (- a 2))
        (d (+ b 2))
        (e 10000))
    (write (+ e (* c 1000) (* a 100) (* b 10) d))
    (newline)))