#!/usr/bin/perl

while(<>){
    split;
    $p2 = $_[1];
    $bend = $_[2];

    push(@piezo, $p2);
    push(@bend, $bend);

    if($#piezo > 3){
	$apiezo = &avg(@piezo);
	push(@spiezo, $apiezo);
	shift(@piezo);
    }

    if($#bend > 3){
	$abend = &avg(@bend);
	push(@sbend, $abend);
	shift(@bend);
    }

    if($#spiezo > 3){
	$spvar = &variance(@spiezo);
	shift(@spiezo);
    }
    if($#sbend > 3){
	$sbvar = &variance(@sbend);
	if(($spvar < 20) && ($sbvar < 50)){
	    $tango = $tango - .001;
	    $waltz = $waltz - .001;
	}
	elsif(($spvar < 50)) {
	    $tango = $tango +.01;
	}
	else{
	    $waltz = $waltz +.04;
	}
	if($waltz > $tango){
	    print "Waltz ", $waltz/($waltz+$tango) ,"\n" if ($waltz > .2);
	}
	else {
	    print "Tango ", $tango/($waltz+$tango), "\n" if ($tango > .2);
	}
	    
#	print "$spvar $sbvar\n";
	shift(@sbend);
    }
}

sub avg {
    @v = @_;
    $n = $#v+1;
    $tot = 0;
    foreach $v (@v){
	$tot+=$v;
    }
    return $tot/$n;
}

sub variance {
    @v = @_;
    $av = &avg(@v);
    $tot = 0;
    $n = $#v+1;
    foreach $v (@v){
	$tot += ($v-$av)**2;
    }
    return $tot/$n;
}