function D=popd
% popd:	Pop directory off stack
% dirname=popd:	pop and return directory name
% popd:				pop directory and cd into it.
global DirStack
d=DirStack{1};
DirStack=DirStack{2};
if nargout<1, cd(d); else D=d; end
