sub diag {
  sqrt( $_[0]^^2 + $_[1]^^2 );
}