program Guess (input,output);
uses crt;
var Fout: text;
    i: integer;

begin
 assign (Fout,'OUT5.txt');
 rewrite (Fout);
 for i:=1 to 5 do
   writeln (Fout,'4');
 close (Fout);
end.