To reproduce:

(define (fact n)
  (let loop ((i 1) (r 1))
    (if (> i n) r (loop (+ i 1) (* r i)))))

(fact 123456)

Watch your computer get unusable :)