samer@0: % asubsample - Arrow to subsample input sequence.
samer@0: %
samer@0: % asubsample :: natural -> arrow({A},{box(A)},natural).
samer@0: function o=asubsample(N)
samer@0: 	o=loop(@barrier,@(sz)0);
samer@0: 	function [y,s]=barrier(x,s)
samer@0: 		if s==0, y={x}; s=N-1;
samer@0: 		else s=s-1; y={}; end
samer@0: 	end
samer@0: end