function succp = testC(streams,labels,func,varargin)
  succount = zeros(2);
  for i=1:size(streams)
    s = streams{i};
    if ischar(s), s=text2stream(s); end;
    if length(succount)<length(s)
      succount(:,length(s))=0;
    end;
    for j=1:length(s)
      correct = 1+(feval(func,s(1:j),varargin{:})==labels(i));
      succount(correct,j) = succount(correct,j)+1;
    end;
  end;
  succp = succount(2,:)./sum(succount);
  
      