samer@3: % aseq - Arrow to generate stream from lazy sequence object
samer@0: %
samer@3: % aseq :: seq(A) -> arrow( {}, {A}, seq(A)).
samer@3: function a=aseq(X)
samer@0: 	a=unfolder(@decons1,X);
samer@0: end
samer@0: 
samer@0: function [h,t]=decons1(x)
samer@3: 	if isempty(x), error('ARROW:EOF','End of sequence'); end
samer@0: 	[h,t]=decons(x);
samer@0: end