> mean_series [1; 8; 2; 8; 1; 7; 1; 8; 2; 7; 3; 6; 1; 8; 100] ;;
 val it : float = 10.86666667
 > mean_series [] ;;
 val it : float = 0.0