(define DEATH-NUMBER 32763)

(apply string-append
	   (vector->list (make-vector
					  (sub1 DEATH-NUMBER)
					  "A")))
(print "HERE I AM")	   

(apply string-append
	   (vector->list (make-vector
					  DEATH-NUMBER
					  "A")))
                      
(print "You'll never find me!")