function F=src_data(D), S=@(z)next_data(D);
% src_data - Data source for data objects
%
% src_data ::
%    seq [[N,_]]    ~'data object representing sequence of arrays'
% -> source(N)      ~'returns a source of N-dim data sequences'.
F=@(z)next_data(Data);

function [x,F]=next_data(D)
	x=head(D);
	F=@(z)next_data(next(D));

