#!/usr/bin/perl

use strict;

my $n = 0;
my $tot = 0;
my @num;
while (my $line = <STDIN>) {
    next unless ($line =~ /^\d/);
    $tot += $line;
    push(@num, $line);
    $n++;
}
exit(1) if ($n < 2);

my $avg = $tot / $n;
my $sumsq = 0;
for my $n (@num) {
    my $diff = $n - $avg;
    $sumsq += ($diff * $diff);
}

print ("Total   : $n\n",
       "Average : ", $avg, "\n",
       "SD      : ", sqrt($sumsq / ($n - 1)), "\n");
