samer@0: function u=construct(s,sizes_in)
samer@0: 
samer@0: 	u=construct(s.base,sizes_in);
samer@0: 	s0=u.get_state();
samer@0: 	u.sizes_out = [u.sizes_out,size(s0)];
samer@0: 	u.process = mkproc(u.process, nargout(s.base), u.get_state);
samer@0: end
samer@0: 
samer@0: function f=mkproc(g,nout,getst)
samer@0: 	f=@proc_nnn;
samer@0: 
samer@0: 	function varargout=proc_nnn(varargin)
samer@0: 		varargout=cell(1,nout+1);
samer@0: 		[varargout{1:nout}]=g(varargin{:});
samer@0: 		varargout{nout+1}=getst();
samer@0: 	end
samer@0: end
samer@0: