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

if isempty(X), Y=[]; else Y=cellcat(dim,X); end
