uses vim;

var
    fr, fw : text;

{ used to read char ignoring whitespaces (space, newline, tab...) }
function read_char_skip_whitespaces() : char;
var
   c : char;
begin
   read(fr, c);
   while (ord(c) = $0020) or (ord(c) = $0009) or
         (ord(c) = $000a) or (ord(c) = $000b) or
         (ord(c) = $000c) or (ord(c) = $000d) do
       read(fr, c);

   read_char_skip_whitespaces := c;
end;

var

{ Declaring variables }
	N : longint;
	C : array of longint;
	L : array of longint;
	P : array of longint;

{ Declaring iterators used in for loops }
	i0: longint;

begin
    assign(fr, 'input.txt');
    assign(fw, 'output.txt');
    reset(fr);
    rewrite(fw);

	{ Reading input }
	read(fr, N);
	Setlength(C, N);
	Setlength(L, N);
	for i0 := 0 to N-1 do
	begin
		read(fr, C[i0]);
		read(fr, L[i0]);
	end;

	{ Calling functions }
	Setlength(P, N);
	valuta(N, C, L, P);

	{ Writing output }
	for i0 := 0 to N-1 do
	begin
		write(fw, P[i0]);
	end;
	writeln(fw);

    close(fr);
    close(fw);
end.