sub diag {
  my ($x, $y) = @_;
  sqrt( $x^^2 + $y^^2 );
}