Solve problem 2 in Scheme