add Ex1_28.scm