> L1 := [*6,15,39,57,75,88*];
> L2 := [*2,9,45,58,64,68*];
> L3 := [*8,16,29,55,67,91*];
> L4 := [*22,25,32,40,54,66*];
> L5 := [*1,14,17,30,41,49*];
> L6 := [*3,10,44,46,63,83*];
> for i,j,k,l,m,n in [1..6] do
for> if L1[i]+L2[j]+L3[k]+L4[l]+L5[m]+L6[n] eq 419 then
for|if> L1[i],L2[j],L3[k],L4[l],L5[m],L6[n];
for|if> end if;
for> end for;
88 68 91 40 49 83
>