#!/usr/bin/perl -wn
# Print out the mean of a set of data read from standard in

use FindBin qw($Bin);
use lib "$Bin/lib/";
use MMTests::Stat;

$x[$i++] = $_;
END {
	$i = 0;
	data_valid(\@x) ? print calc_amean(\@x) : print "NaN";
}
