eee.rkt

#lang racket

(define max (expt 100 100))

(define out (open-output-file "eee.txt"))

(define (f a b)

	(if (> b max)
		(f 0 1)
		((write b out)
		 (newline out)
		 (f b (+ a b))
		 )))
(f 0 1)