function dumpsub(s)

l = length(s);
for j = 1 : l
  oline = sprintf('j = %d type = %s subs = ', j, s(j).type);
  for k = 1 : length(s(j).subs)
    if s(j).subs{k} == ':'
      oline = [oline,'[:] '];
    else
      oline = [oline, '[', sprintf('%d ', s(j).subs{k}),'] '];
    end
  end
  disp(oline);
end