let
voisK i j =
let
p y = (dist (i,j) y =1)
in
Ensemble
.filter p (dir i j)