(define (infinite-calculation)
  (infinite-calculation))

((lambda (x) 1) (infinite-calculation))

(let ((x (infinite-calculation)))
  1)


; Another example:

((lambda (x) 1) 
   ((lambda (x) (x x)) (lambda (x) (x x))) )