% abuffer - arrow that collects several outputs from supplied generator arrow
%
% abuffer :: 
%    arrow({},{[[N]]},S) ~'arrow with no inputs and one output',
%    L:natural           ~'width of buffer'
% -> arrow({}, {[[N,L]]},S).

function o=abuffer(a,width)
	s.base=a;
	s.width=width;
	o=class(s,'abuffer',arrow(nargin(a),narout(a)));
end
