Create p01.scm