Create p04.scm