#!/usr/bin/perl

while(<>){
    @d = split;
    for $sn (0..$#d){
	$lag[$sn] = new Lag unless(defined $lag[$sn]);
	$lag[$sn]->add($d[$sn]);
	print $lag[$sn]->out();
    }
    print "\n";
}

package Lag;

sub new {
    return bless {'data' => [[], [], [], [], [], [], []],
	      };
}

sub add {
    $self = shift;
    $what = shift;
    for $embn (0..6){
	push(@{${$self{data}}[$embn]}, $what);
        $maxsize = 2**$embn;
        $maxsize--;
        if($#{${$self{data}}[$embn]} > $maxsize){ # 
           shift(@{${$self{data}}[$embn]});
        }
    }
}

sub out {
    $self = shift;
    $ret = "";
    @d = @{${$self{data}}[0]};
    $ret = "$d[0] ";
    for $embn (1..6){
	@d = @{${$self{data}}[$embn]};
        ($a, $v) = &stats(@d);
        $ret .= "$a $v ";
    }
$ret;
}

sub stats {
    @d = @_;
    $tot = $n = 0;
    foreach $v (@d){
	$tot += $v;
	$n++;
    }
    if($n==0){
	$avg = 0;
    }
    else{
	$avg = $tot/$n;
    }
    $tot = $n = 0;
    foreach $v (@d){
	$tot += ($v-$avg)**2;
	$n++;
    }
    if($n!=0){
	$var = sqrt($tot/$n);
    }
    else{
	$var = 0;
    }
    return ($avg, $var);
}