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