sub diag {
return abs ($_[0] * $_[1]);
}