i fyra akter i .ch.scm