let index := 0;

for{(master_f,slave_g,slave_h) in Codewords_fgh_strict}
{
    reset data f,g,h;
    for{i in 1..5}
    {
      let f[i] := codes5vec[master_f,i];
      let g[i] := Codewords_vec[master_f,slave_g,i];
      let h[i] := Codewords_vec[master_f,slave_h,i];
    }

   let index := index + 1;

   let Redundancy[index] := setof{i in 1..5} (11,f[i],g[i],h[i]);
}

display Redundancy > a24_5-out-Redundancy.txt;

end;