Факториал 20000

Сегодня читал статью об Erlang: Язык Erlang и программирование для мультиядерных процессоров и встретил там вычисление факториала 20000. Заинтересовался, а можно ли получить эти 77 тысяч цифр на Scheme. Написал следующую программку:

(define (fact n)
(if (= 1 n) 1 (* n (fact (- n 1)))))
(fact 20000)

И таки получил эти свои 77 тысяч знаков! Что характерно, времени на это ушло, по ощущениям, секунды 3.