restruct sample.scm, ...