samer@4: function Y=gather(dim,X,varargin)
samer@4: % gather - Gather for cell arrays
samer@4: %
samer@4: % gather :: 
samer@4: %    D:natural ~'dimenion along which to gather',
samer@4: %    cells(A)  ~'1 D cell array of things'
samer@4: % -> [Size->A].
samer@4: 
samer@4: if isempty(X), Y=[]; else Y=cellcat(dim,X); end