samer@10: % aconcat - arrow to sequence multiple finite generators 
samer@10: %
samer@10: % aconcat :: 
samer@10: %    {[N]->arrow(A,B,_)} ~'cell array of arrows'
samer@10: % -> arrow(A,B,aconcat_state).
samer@10: %
samer@10: 
samer@10: 
samer@10: function o=aconcat(ax)
samer@10: 	if iscell(ax) ax=cellseq(ax); end
samer@10: 	s.arrows=ax;
samer@10: 	o=class(s,'aconcat',arrow(nargin(head(ax)),nargout(head(ax))));
samer@10: end