Lambda verwenden, anstatt Schema einzulassen

In SICP 1.2.1 gibt es eine Funktion, die eine rationale Zahl wie folgt erstellt:

(define (make-rat n d)
  (let ((g (gcd n d)))
    (cons (/ n g) (/ d g))))

Ich bin nur gespannt, wie man dasselbe mit lambda anstatt let umsetzen kann, ohne GCD zweimal aufzurufen. Ich konnte es nicht selbst herausfinden.