set i 21 while {[incr i -1]} {puts [regexp -all {\*\*} [read stdin 451]]}