begin
comment integer transform to bits string;
	bits bt;
	integer n;
	n := 34571;
	bt :=bitstring(n);
	write(bt);
end.