#!/usr/bin/perl

$min = 100000;
while(<>){
	@vec = split;
	$dim = $#vec+1;
	next if $dim < 1;
	$mag = sqrt(1/$dim);
	$proj = 0;
	foreach $v (@vec){
		$proj += $v*$mag;
	}
	$pmag = $proj*$mag;
	$dmag = 0;
	foreach $v (@vec){
		$dmag += ($v-$pmag)*($v-$pmag);
	}
	print sqrt($dmag);
	$tot += sqrt($dmag);
	$ct++;
	$avg = $tot/$ct;
	$max = (sqrt($dmag) > $max) ? sqrt($dmag):$max;
	$min = (sqrt($dmag) < $min) ? sqrt($dmag):$min;
	print " $avg $min $max\n";
	if(sqrt($dmag) < 250){
		print "Waltz\n";
	}
	elsif(sqrt($dmag) < 1000){
		print "Tango\n";
	}
	else {
		print "Unknown\n";
	}
}