#!/usr/bin/emacs --script

(define (p) (p))

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

(test 0 (p))