started ex1.6 in Scheme