;-*-Scheme-*-

(test-setup 10 #f)

(defglobalconstant c1 3)

(+ c1 (mlet ((c1 4))
	    c1
	    )
   c1
   )