var
i,a:Integer;
Begin
Writeln('FOR');
write('Seanyak = ');Readln(i);
Writeln;
for a := 1 to i do
begin
  Writeln('YA TUHAN ');
end;


readln;
end.