[easy] armstrong numbers - tcl