modified:   euler-1.scm