#!/usr/bin/perl
 $x=<<X:10>>;
 $y=<<Y:10>>;
$f=sin(4*$x)-2*$x+$x**2+sin(4*$y)-2*$y+$y**2;

open(FILE,'>out.txt');
print FILE"$f\n";
close FILE;
print "N o r m a l\n";
