Solved Problem 18, Scheme