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


$e = 0;
for($i=0;$i+1<=$#ARGV;$i+=2)	{
	if($i == 0)	{
		$e += xx($ARGV[0]+$ARGV[1])*100;
		}
	else	{
		$e += xx(cos($ARGV[$i])-sin($i*$ARGV[$i+1]));
		}
	$e += xx($ARGV[$i]) + xx($ARGV[$i+1]);
	}
$e += xx($ARGV[$#ARGV]);
print $e . "\n";

sub xx { my $x = shift; $x*$x; }
