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