set regex ""
set text ""
for {set i 1} {$i < 100 } {incr i} {
  set regex [ string cat "a?" $regex "a" ]
  set text [ string cat $text "a"]
  puts [ string cat $i "\t" [ time { regexp $regex $text    } ] ]
}