[easy] even numbers - tcl