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