Create euler-1.tcl