{
TASK:GREEN
LANG:PASCAL
}
{var
 a:array[1..100,1..2] of longint;
 i,m:integer;
 f:boolean;
begin
 repeat
  read(m);
  if m=0 then f:=true
         else for i:=1 to m do read(a[i,1],a[i,2]);

 until f;
end.}
begin
 writeln('1');
end.