very basic, very lazy number generator with un-accurate timer

set fileid [open test2.txt "w"]
puts "enter the smallest number allowed"
gets stdin rmin
puts "enter largest number allowed"
gets stdin rmax
puts "number of sequences to generate"
gets stdin rrun
set time1 [clock format [clock seconds] -format {%H%M%S}]
set rmid 1
set rdumped 0
set raccept 0
for {set rran 0} {$rran != $rrun} {incr rran} {
set rstart [expr {$rmin+round(rand() * $rmax)}]
if {[regexp $rstart $rmid] == 1} {
    append rdum $rstart
    puts "$rstart $rran [expr $rrun - $rran] DDD"
    incr rdumped
    incr rrran
    set rran [expr "$rran - 1"]} else { 
    append rmid $rstart
    puts "$rstart $rran [expr $rrun - $rran] AAA"
    incr raccept
    incr rrran }
}
puts "[expr $raccept + $rdumped] sequences  generated creating $rran sequences of numbers.

    $raccept numbers were accepted
    $rdumped numbers were dumped"
    set time2 [clock format [clock seconds] -format {%H%M%S}]
    set time3 [expr $time2 - $time1]
    puts $time3
puts $fileid "
    $rmid

    [expr $raccept + $rdumped] Numbers generated creating $rran sequences of numbers.
    $raccept numbers were accepted
    $rdumped numbers were dumped"
close $fileid