new file:   tcl-stuff/euler-1.tcl