Evaluated proc vanitygen2 rxp {set lst ""; while {[regexp -nocase $rxp $lst] == 0} {set ok [md5sum [timestamp][rand 10000000]]; set lst [first [bitcoin brain $ok]]}; . $lst - $ok}