#! /usr/local/bin/guile -s
!#

(define zero
	(lambda ()
		(begin (display "is zero") (newline))))

(define nozero
	(lambda ()
		(begin (display "not zero") (newline))))

(define func 
	(lambda (x y)
		(case (* x y)
			((0) (zero))
			(else (nozero)))))

(func 2 3)
(func 2 0)
(func 0 9)