function result = make_science_news_titles(cLabels)

fout = fopen('output.txt','w');
for i=1:size(cLabels,1)
    fprintf('\ni=%d\n',i);
    fname = num2str(cLabels(i,1));
    h = fopen(fname,'r');
    text = fscanf(h,'%c',100000);
    fclose(h);
   % text
    %pause;
    
    %I = strfind(text,'Science News Online');
    %if(length(I)>0)
    %    text(1:min(I)+29)=[];
    %end;
    
    
%     I = strfind(text,'SCIENCE NEWS');
%     if( (length(I)>0) & (I(1)<40) )
%         firsttext(1:I(1)+13)=[];
%     end;
    
    I = strfind(lower(text),' by ');
    if(length(I)>0)
         text(I(1):end)=[];
    else
        I = strfind(text,sprintf('\n'));
        if(length(I)>=4)
            text(I(4):end)=[];
        end;
    end;
    
    I = strfind(lower(text),'the weekly newsmagazine of science');
    if(length(I)>0)
         text(I(1):end)=[];
    end;
    
    
    text = strrep(text,sprintf('\n'),' ');
    text = strrep(text,sprintf('\r'),' ');
    text = strrep(text,sprintf('\t'),' ');
    
    text = strrep(text,'    ',' ');
    text = strrep(text,'   ',' ');
    text = strrep(text,'  ',' ');
    text = strrep(text,'Science News Online',' ');
    
   
    
    
    
%     clear tmp;
%     for j=0:9
%         max(strfind(text,num2str(j)))
%         tmp(j+1)= max(strfind(text,num2str(j)));
%     end;
%     text(1:max(tmp))=[];

  I = strfind(text,'199');
    if(length(I)>0)
        if(I(1)<100)        text(1:min(I)+3)=[]; end;
    end;
    
    I = strfind(text,'200');
    if(length(I)>0)
        if(I(1)<100) text(1:min(I)+3)=[]; end;
    end;
     
  
    
   
    
    
    if(length(text)>100) 
        text(100:end)=[];
    end;
    
    
   
    text = [num2str(cLabels(i,1)) '. ' text];
    %pause;
    
    result(i).id = cLabels(i,1);
    result(i).title = text;
    result(i).class = cLabels(i,2);    
    %fprintf(fout,[text '\r\n']);
end;
fclose(fout);