problem 15 in scheme