#| Для этого упражнения нет проверок.
Любое решение будет считаться успешным ответом. |#
(define (p) (p))

(define (test x y)
    (if (= x 0)
        0
        y))

(test 0 (p))
#| При аппликативном вычислении выражений в процедуре test 
первый параметр подставится как 0, а второй будет рекурсивно 
вычисляться -> программа зависнет, мб по таймауту упадет?
При нормальном порядке подставит в первом параметре 0 и выйдет из
процедуры вернув 0
|#