function varargout = cellfoo (S, varargin)
%  keyboard;
%   disp (sprintf ('nargout = %d', nargout));
   S.message
   for i = 1 : nargout
      varargout{i} = NaN ;
   endfor
endfunction
