wolffd@0: function varargout = nthoutput(orig,varargin)
wolffd@0: 
wolffd@0:         nth.type = 'Integer';
wolffd@0:         nth.default = 1;
wolffd@0:         nth.position = 2;
wolffd@0:     option.nth = nth;
wolffd@0: specif.option = option;
wolffd@0: 
wolffd@0: varargout = mirfunction(@nthoutput,orig,varargin,nargout,specif,@init,@main);
wolffd@0: 
wolffd@0: 
wolffd@0: function [x type] = init(x,option)
wolffd@0: type = mirtype(x);
wolffd@0: type = type{option.nth};
wolffd@0: 
wolffd@0: 
wolffd@0: function y = main(x,option,postoption)
wolffd@0: y = x{option.nth};
wolffd@0: %y = x{1}{option.nth};