let rec dN e i j = if (i,j) -/-> echiquier then e else dN ((i,j) +$ e) (i) (j+1)