let
fcase (case:coord) =
Ensemble
.elements (voisK (fst case) (snd case))