Someone

;log base x of y
(setq logApp (lambda (x y)

	(block (result)
		
		(setq result 0)
		
		(loop (gr y x)
			(setq result (add result 1))
			(setq y (divide y x))
		)
		result
	)
)