function S = shufprod_c(A)
if length(A) < 3
  if length(A) == 1
    S = A;
  else
    S = shufprod(A{1},A{2});
  end
  return
end

% A must have at least 2 elements
S = shufprod(A{1},A{2});
for i=3:length(A)
  Si = {};
  for j=1:length(S)
    Sij = shufprod(A{i},S{j});
    Si = unique([Si(:); Sij(:)]);
  end
  S = unique([S(:); Si(:)]);
end
return