var f,g:text;
    n,x,i:longint;
begin
assign(f,'barca.in');reset(f);
assign(g,'barca.out');rewrite(g);
readln(f,n);
writeln(g,n*4);
n:=n*4;
x:=1;
for i:=1 to n do
    if i mod 4=1 then writeln(g,'IG')
    else if i mod 4=2 then writeln(g,'I')
    else if i mod 4=3 then begin
                           writeln(g,x);
                           x:=x+1;
                           end
    else if i mod 4=0 then writeln(g,'G');
close(g);
end.