function r=isstruct(S)
r=typeof(S)=='st'
endfunction
