(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!")

;; Try compiling this; it will take a while but eventually succeed.  Running it causes a hang though, even though it has no "apply" call (instead it builds a very big "av2")

(define-for-syntax DEATH-NUMBER 32763)

(print "HERE I AM")    

(define-syntax make-big-call
  (er-macro-transformer
    (lambda (e r c)
      `(string-append ,@(vector->list (make-vector DEATH-NUMBER "A"))))))

(make-big-call)
                      
(print "You'll never find me!")