RosettaCodeData/Task/McNuggets-problem/SETL/mcnuggets-problem.setl

program mcnuggets;
    nuggets := +/+/ {{{ x + y + z
                        : x in [0, 6..100] }
                        : y in [0, 9..100] }
                        : z in [0, 20..100] };

    print(max/{n : n in [1..100] | not n in nuggets});
end program;