set i 21 while {[incr i -1]>0} {puts [expr [regexp -all " \\* " [read stdin 451]]/2]}