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