Started ex1.11 in Scheme