some recursive arithmetic functions in scheme