task 2.10-2.11
task 2.12
interval.scm: correct mul-interval