let dir i j = (dNS i j) +! (dNE e i j) +! (dSO e i j) +! (dSE e i j) +! (dNO e i j)