function diginto(thestruct, level)
if nargin < 2
level = 0;
end
fn = fieldnames(thestruct);
for n = 1:length(fn)
tabs = '';
for m = 1:level
tabs = [tabs ' '];
end
disp([tabs fn{n}])
fn2 = getfield(thestruct,fn{n});
if isstruct(fn2)
diginto(fn2, level+1);
end
end
end