var m,n,i,j:byte;
    s:string;
pole:array[1..55]of string;
begin
readln(n);
while n<>0 do
 if n=1 then  begin writeln('Sheet 1, front: Blank, 1');readln(n);end else

  begin
    for i:=1 to n do 
      begin str(i,s); pole[i]:=s;end;
    for i:=(n+1) to (n+5) do pole[i]:='Blank';
    m:= (n+(n mod 4));
    for i:=1 to ((n+ (n mod 4))div 2) do     
      begin
        if i mod 2 = 0 then  
        writeln('Sheet ',(((i-1) div 2)+1),', front: ',pole[0+i],', ',pole[m+1-i])  
        else
	writeln('Sheet ',(((i-1) div 2)+1),', front: ',pole[m+1-i],', ',pole[0+i]);  
      end;
     readln(n); 
  end;
end.