#!/usr/bin/perl -w

use Stats;

$s1 = Stats->new();
$s2 = Stats->new();

$s1->addItem(5);
$s1->addItem(.07);
$s1->addItem(12);
$s1->addItem(13);
$s1->addItem(-5);
$s1->addItem(1.7);
$s1->addItem(.07);


print "The Average: " . $s1->average() . " Max: " . $s1->max() . "\n";
print "The values: " . $s1->toString() . "\n";
