sub diag {
   my ($x,$y) = @_;
   #faster 
}