% sinkws - sink that produces an array in the base workspace.
function s=sinkws(name,ch,len,rate)
	if nargin<4, rate=nan; end
	s=sinkarray(@(x)assignin('base',name,x),ch,len,rate);
end
