modified:   euler-1.tcl