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

##</code><code>##

sub ediag {
  abs(shift) * abs(shift);
}

##</code><code>##

sub one {
  sqrt( $_[0] * $_[0] * $_[1] * $_[1] )
}

##</code><code>##

sub another{
  sqrt( $_[0] * $_[0] + $_[1] * $_[1] )
}