6 lines
133 B
Tcl
6 lines
133 B
Tcl
set input 0
|
|
while {$input != 75000} {
|
|
puts -nonewline "enter the number '75000': "
|
|
flush stdout
|
|
set input [gets stdin]
|
|
}
|