modified:   sama.scm