#!/usr/bin/perl -wn
# Print out the standard deviation 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;
	print calc_stddev(\@x);
}
