{
TASK:seq
LANG:Pascal
}

program seq;
const maxn=100;
var mn, i,j:integer;
begin
readln(mn);
for i :=1 to mn do
 repeat read(j) until Eof ;
if mn>=2 then
begin
i:=0;
repeat
inc(i);
if (i mod 2) =1 then
write(1)
else
write(0);

until i=mn
end
else
writeln(10);

end.