var
a:array[0..256]of byte;
i:byte;
begin
for i:=0to 255 do begin a[i]:=a[i div 2]+i mod 2;write(a[i]);end
end.