path: root/tests/func3.bth

(do
	(set f1 (fn (a b) (* a b)))
	(set f2 (fn (x)
			 (set xx x)
			 (let (a 3
				   g (fn (y) (+ y 7)))
				   (* (g a) (g xx)))))
	(puts (f1 6 6))
	(f2 7))