(defun my_min (l)
    (interactive)
    (if (null l) nil
        (min_jr (car l) (cdr l))
    )
)

(defun min_jr (min_val l)
    (interactive)
    (if (null l) min_val
        (if (< (car l) min_val)
	    (min_jr (car l) (cdr l))
	    (min_jr min_val (cdr l))
	)
    )
)