function Y=seq2cell(X)
% seq2cell - gather elements of sequence into a cell array
%
% seq2cell :: seq A -> {[N]->A}.

Y={};
while ~isempty(X)
	Y=[Y {head(X)}];
	X=next(X);
end
