updated 04_procedures.scm