Create ex_1_40.scm