Started ex1.9 in Scheme