#!/usr/local/bin/perl -w --

$e = 0;
for($i=0;$i<=$#ARGV;$i++)	{
	$e += $ARGV[$i]*$ARGV[$i];
	}
print $e . "\n";
