Redo problem #2 in Scheme