Exit the Routine when clicked return in TCL Script

I have a subroutine that does certain task. Since the task is repetitive It should avoid running tcl Script again and again from File --> Run --> Tcl/Tk script. So, is there a way to come out of the loop once I did all the connections.

for eg.

 

proc mycode {}

{

*createmarkpanel 

#my working code here

}

 

while {0<1} {

mycode

}

 

Now I need to exit while loop whenever I complete desired repetitions of the tasks without any warnings or error.

 

 

<?xml version="1.0" encoding="UTF-8"?>