old-racket-sicp-solutions/exercise-1.05-test-applicative-order-vs-normal-order-evaluation.rkt

#lang racket
(define (p) (p))
(define (test x y)
  (if
    (= x 0)
    0
    y))

(test 0 (p))