sub diag {
my $x = shift @_;
my $y = shift @_;
return abs ($x * $y);
}