program p1;
var k,i,j,n,s:longint;
    a:array[1..1000] of longint;
    fi,fo:text;
begin
assign(fi,'fractii.in'); reset(fi);
assign(fo,'fractii.out'); rewrite(fo);

  read(fi,n);

  for i:=2 to n do
   a[i]:=i-1;

  for i:=2 to n do
   begin
   j:=i*2;
    while j<=n do
     begin
      a[j]:=a[j]-a[i];
      inc(j,i);
     end;
   end;

   for i:=1 to n do
    writeln(fo,i,'--',a[i]);


close(fi); close(fo);
end.