procedure Semmi_T is
	task T;

	task body T is 
	begin 
	  null; 
	end;
begin 
  null; 
end;