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