const N:array[0..3] of longint=(10 ,1000,1000000,1000000);
var s:string;
    f:text;
    t,i:longint;
begin
 randomize;
 for t:=0 to 3 do
  begin
    str(t,s);
    if length(s)<2 then s:='0'+s;
    s:='TEST'+s;
    mkdir(s);
    s:=s+'/CPRIME.INP';
    assign(f,s);
    rewrite(f);
    writeln(f,N[t]);
    for i:=1 to N[t] do write(f,random(N[t]*10)+1,' ');
    close(f);
  end;
end.