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