++$i and $s += $1 while($_ = <STDIN> and /(\d+)/);
print "the average is: ",$s/$i,"\n";