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 :)