Simple function in scheme