add chapter 4-1 base function in

       4-base.scm