Program Parse3 (input,output);
(*Prg reads std nw outfile and sums hits*)


var
l,n,j,k,g,F                                            :longint;
x,y                                                      :char;
ifil,ofil                                                :text;
namei,p,u                                                    :string;
z,r,s,t                                                  :real;
Begin
  writeln('Enter the name of the input file');
  readln(namei);
  assign(ifil,namei);
  reset(ifil);
  assign(ofil,'tthird');
  rewrite(ofil);
  writeln('How many genes total in this study?');
  readln(F);
  n:=0;
  k:=0;
  l:=1;
  for g:=1 to F do
     begin
       readln(ifil,p,u);
       writeln(ofil,p,u);
       readln(ifil);
     end;
 close(ifil);
 close(ofil);
end.