fix recursion bug.. add ^ function written in toy

(stms
	(= ^ (lambda (a b)
			(if (== b 1) a
				(* a (^ a (- b 1)))
			)
		)
	)
	(print (^ 3 4))
)