never mind i've just done it... was a lot easier than I thought 
its no where near polished but heres like the basic idea of it 

MultiSetR:=[{2, 8}, {2, 4, 6, 7, 8}, {4, 6, 8}, {1, 4, 8}, {1, 4, 8, 9}];
for i from 1 to numelems(MultiSetR) do 
  for j from i+1 to numelems(MultiSetR) do 
    for k from j+1 to numelems(MultiSetR) do
       MultiSetR[i]:
       MultiSetR[j]:
       MultiSetR[k]:
       printf(" %a ,%a, %a \n", MultiSetR[i], MultiSetR[j], MultiSetR[k]):
    od:
  od:
od:

 {2, 8} ,{2, 4, 6, 7, 8}, {4, 6, 8} 
 {2, 8} ,{2, 4, 6, 7, 8}, {1, 4, 8} 
 {2, 8} ,{2, 4, 6, 7, 8}, {1, 4, 8, 9} 
 {2, 8} ,{4, 6, 8}, {1, 4, 8} 
 {2, 8} ,{4, 6, 8}, {1, 4, 8, 9} 
 {2, 8} ,{1, 4, 8}, {1, 4, 8, 9} 
 {2, 4, 6, 7, 8} ,{4, 6, 8}, {1, 4, 8} 
 {2, 4, 6, 7, 8} ,{4, 6, 8}, {1, 4, 8, 9} 
 {2, 4, 6, 7, 8} ,{1, 4, 8}, {1, 4, 8, 9} 
 {4, 6, 8} ,{1, 4, 8}, {1, 4, 8, 9}