printf s/$/ Average: %.1f/r,($a-=(${--$i-5}=/ /*$')-$$i)/($i<-5?-5:$i)for<>