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